/ Linux Cubed Series 2: Applications / Linux Cubed Series 2 - Applications.iso / editors / emacs / xemacs / xemacs-1.006 / xemacs-1 / lib / xemacs-19.13 / lisp / hyperbole / hargs.elc

< prev

next >

MacOS 8.1

Win98

DOS

view JSON data

view as text

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 3b 45 4c 43 13 00 00 00 | 0a 3b 3b 3b 20 63 6f 6d |;ELC....|.;;; com|
|00000010| 70 69 6c 65 64 20 62 79 | 20 63 74 68 6f 6d 70 40 |piled by| cthomp@|
|00000020| 77 69 6c 6c 6f 77 2e 63 | 73 2e 75 69 75 63 2e 65 |willow.c|s.uiuc.e|
|00000030| 64 75 20 6f 6e 20 54 75 | 65 20 41 75 67 20 32 39 |du on Tu|e Aug 29|
|00000040| 20 31 34 3a 35 31 3a 33 | 32 20 31 39 39 35 0a 3b | 14:51:3|2 1995.;|
|00000050| 3b 3b 20 66 72 6f 6d 20 | 66 69 6c 65 20 2f 65 78 |;; from |file /ex|
|00000060| 70 6f 72 74 2f 77 69 6c | 6c 6f 77 33 2f 78 65 6d |port/wil|low3/xem|
|00000070| 61 63 73 2d 31 39 2e 31 | 33 2d 72 65 6c 65 61 73 |acs-19.1|3-releas|
|00000080| 65 2f 65 64 69 74 6f 72 | 2f 6c 69 73 70 2f 68 79 |e/editor|/lisp/hy|
|00000090| 70 65 72 62 6f 6c 65 2f | 68 61 72 67 73 2e 65 6c |perbole/|hargs.el|
|000000a0| 0a 3b 3b 3b 20 65 6d 61 | 63 73 20 76 65 72 73 69 |.;;; ema|cs versi|
|000000b0| 6f 6e 20 31 39 2e 31 33 | 20 58 45 6d 61 63 73 20 |on 19.13| XEmacs |
|000000c0| 4c 75 63 69 64 2e 0a 3b | 3b 3b 20 62 79 74 65 63 |Lucid..;|;; bytec|
|000000d0| 6f 6d 70 20 76 65 72 73 | 69 6f 6e 20 32 2e 32 35 |omp vers|ion 2.25|
|000000e0| 3b 20 31 2d 53 65 70 2d | 39 34 2e 0a 3b 3b 3b 20 |; 1-Sep-|94..;;; |
|000000f0| 6f 70 74 69 6d 69 7a 61 | 74 69 6f 6e 20 69 73 20 |optimiza|tion is |
|00000100| 6f 6e 2e 0a 3b 3b 3b 20 | 74 68 69 73 20 66 69 6c |on..;;; |this fil|
|00000110| 65 20 75 73 65 73 20 6f | 70 63 6f 64 65 73 20 77 |e uses o|pcodes w|
|00000120| 68 69 63 68 20 64 6f 20 | 6e 6f 74 20 65 78 69 73 |hich do |not exis|
|00000130| 74 20 69 6e 20 45 6d 61 | 63 73 20 31 38 2e 0a 0a |t in Ema|cs 18...|
|00000140| 28 69 66 20 28 61 6e 64 | 20 28 62 6f 75 6e 64 70 |(if (and| (boundp|
|00000150| 20 27 65 6d 61 63 73 2d | 76 65 72 73 69 6f 6e 29 | 'emacs-|version)|
|00000160| 0a 09 20 28 6f 72 20 28 | 61 6e 64 20 28 62 6f 75 |.. (or (|and (bou|
|00000170| 6e 64 70 20 27 65 70 6f | 63 68 3a 3a 76 65 72 73 |ndp 'epo|ch::vers|
|00000180| 69 6f 6e 29 20 65 70 6f | 63 68 3a 3a 76 65 72 73 |ion) epo|ch::vers|
|00000190| 69 6f 6e 29 0a 09 20 20 | 20 20 20 28 73 74 72 69 |ion)..  |   (stri|
|000001a0| 6e 67 2d 6c 65 73 73 70 | 20 65 6d 61 63 73 2d 76 |ng-lessp| emacs-v|
|000001b0| 65 72 73 69 6f 6e 20 22 | 31 39 22 29 29 29 0a 20 |ersion "|19"))). |
|000001c0| 20 20 20 28 65 72 72 6f | 72 20 22 54 68 69 73 20 |   (erro|r "This |
|000001d0| 66 69 6c 65 20 77 61 73 | 20 63 6f 6d 70 69 6c 65 |file was| compile|
|000001e0| 64 20 66 6f 72 20 45 6d | 61 63 73 20 31 39 2e 22 |d for Em|acs 19."|
|000001f0| 29 29 0a 0a 28 62 79 74 | 65 2d 63 6f 64 65 20 22 |))..(byt|e-code "|
|00000200| c0 c1 21 88 c0 c2 21 87 | 22 20 5b 72 65 71 75 69 |..!...!.|" [requi|
|00000210| 72 65 20 68 70 61 74 68 | 20 73 65 74 5d 20 32 29 |re hpath| set] 2)|
|00000220| 0a 28 64 65 66 76 61 72 | 20 68 61 72 67 73 3a 72 |.(defvar| hargs:r|
|00000230| 65 61 64 69 6e 67 2d 70 | 20 6e 69 6c 20 22 5c 0a |eading-p| nil "\.|
|00000240| 74 20 6f 6e 6c 79 20 77 | 68 65 6e 20 48 79 70 65 |t only w|hen Hype|
|00000250| 72 62 6f 6c 65 20 69 73 | 20 70 72 6f 6d 70 74 69 |rbole is| prompti|
|00000260| 6e 67 20 75 73 65 72 20 | 66 6f 72 20 69 6e 70 75 |ng user |for inpu|
|00000270| 74 2c 20 65 6c 73 65 20 | 6e 69 6c 2e 22 29 0a 28 |t, else |nil.").(|
|00000280| 66 73 65 74 20 27 68 61 | 72 67 73 3a 61 63 74 79 |fset 'ha|rgs:acty|
|00000290| 70 65 2d 67 65 74 20 23 | 5b 28 61 63 74 79 70 65 |pe-get #|[(actype|
|000002a0| 20 26 6f 70 74 69 6f 6e | 61 6c 20 6d 6f 64 69 66 | &option|al modif|
|000002b0| 79 69 6e 67 29 20 22 c0 | c1 5c 6e 21 0b 5c 22 87 |ying) ".|.\n!.\".|
|000002c0| 22 20 5b 68 61 72 67 73 | 3a 61 63 74 69 6f 6e 2d |" [hargs|:action-|
|000002d0| 67 65 74 20 61 63 74 79 | 70 65 3a 61 63 74 69 6f |get acty|pe:actio|
|000002e0| 6e 20 61 63 74 79 70 65 | 20 6d 6f 64 69 66 79 69 |n actype| modifyi|
|000002f0| 6e 67 5d 20 33 20 22 5c | 0a 49 6e 74 65 72 61 63 |ng] 3 "\|.Interac|
|00000300| 74 69 76 65 6c 79 20 67 | 65 74 73 20 61 6e 64 20 |tively g|ets and |
|00000310| 72 65 74 75 72 6e 73 20 | 6c 69 73 74 20 6f 66 20 |returns |list of |
|00000320| 61 72 67 75 6d 65 6e 74 | 73 20 66 6f 72 20 41 43 |argument|s for AC|
|00000330| 54 59 50 45 27 73 20 70 | 61 72 61 6d 65 74 65 72 |TYPE's p|arameter|
|00000340| 73 2e 0a 43 75 72 72 65 | 6e 74 20 62 75 74 74 6f |s..Curre|nt butto|
|00000350| 6e 20 69 73 20 62 65 69 | 6e 67 20 6d 6f 64 69 66 |n is bei|ng modif|
|00000360| 69 65 64 20 77 68 65 6e | 20 4d 4f 44 49 46 59 49 |ied when| MODIFYI|
|00000370| 4e 47 20 69 73 20 6e 6f | 6e 2d 6e 69 6c 2e 22 5d |NG is no|n-nil."]|
|00000380| 29 0a 28 66 73 65 74 20 | 27 68 61 72 67 73 3a 61 |).(fset |'hargs:a|
|00000390| 74 2d 70 20 23 5b 28 26 | 6f 70 74 69 6f 6e 61 6c |t-p #[(&|optional|
|000003a0| 20 6e 6f 2d 64 65 66 61 | 75 6c 74 29 20 22 08 c1 | no-defa|ult) "..|
|000003b0| 3d ab 8d 5c 6e c3 3d ab | 88 c4 c5 21 ac 83 c6 20 |=..\n.=.|...!... |
|000003c0| 87 08 c7 3d ab 9f c4 c5 | 21 ac 9a c8 5c 6e c3 3d |...=....|!...\n.=|
|000003d0| ab 8c c9 ca cb cc 21 ad | 82 0e 0c 5c 22 aa 86 cd |......!.|...\"...|
|000003e0| 18 ce 20 29 43 21 87 6c | ab 82 ca 87 08 cf 3d ab |.. )C!.l|......=.|
|000003f0| 9b d0 20 d1 20 3d ab 94 | 8a d2 d3 d4 ca d5 23 ab |.. . =..|......#.|
|00000400| 87 d4 ca 77 88 67 aa 81 | d6 21 29 87 d7 d5 21 86 |...w.g..|.!)...!.|
|00000410| 2b 02 08 d8 3d ab 84 d9 | da 21 87 d9 20 ab 82 ca |+...=...|.!.. ...|
|00000420| 87 08 cd 3d ab c3 db ca | dc 5c 22 86 2b 02 5c 6e |...=....|.\".+.\n|
|00000430| dd 3d ab 8f de ca d5 5c | 22 89 1e 0d ad 84 df 0e |.=.....\|".......|
|00000440| 0d 21 29 87 5c 6e e0 3d | ab 8e e1 d5 21 89 1e 0d |.!).\n.=|....!...|
|00000450| ad 84 df 0e 0d 21 29 87 | db cd 21 ae 8f e2 e3 20 |.....!).|..!.... |
|00000460| cd 5c 22 ae 88 0e 24 ab | 82 ca 87 e5 20 87 08 e6 |.\"...$.|.... ...|
|00000470| 3d ab dd db e6 dc 5c 22 | 86 2b 02 5c 6e dd 3d ab |=.....\"|.+.\n.=.|
|00000480| 9c de ca d5 5c 22 89 1e | 27 ad 91 df 0e 27 21 89 |....\"..|'....'!.|
|00000490| 16 27 ad 88 e8 0e 27 21 | ad 82 0e 27 29 87 5c 6e |.'....'!|...').\n|
|000004a0| e0 3d ab 9b e1 d5 21 89 | 1e 27 ad 91 df 0e 27 21 |.=....!.|.'....'!|
|000004b0| 89 16 27 ad 88 e8 0e 27 | 21 ad 82 0e 27 29 87 db |..'....'|!...')..|
|000004c0| e6 21 ae 8f e2 e3 20 e6 | 5c 22 ae 88 0e 24 ab 82 |.!.... .|\"...$..|
|000004d0| ca 87 0e 29 87 08 ea 3d | ab 93 eb ec 89 5c 22 86 |...)...=|.....\".|
|000004e0| 2b 02 eb ed 89 5c 22 86 | 2b 02 eb ee ed 5c 22 87 |+....\".|+....\".|
|000004f0| 08 ef 3d ac 85 08 f0 3d | ab 8e f1 20 1e 32 f3 0e |..=....=|... .2..|
|00000500| 32 f4 f0 21 5c 22 40 29 | 87 08 f5 3d ac 85 08 f6 |2..!\"@)|...=....|
|00000510| 3d ab 8e f1 20 1e 32 f3 | 0e 32 f4 f6 21 5c 22 40 |=... .2.|.2..!\"@|
|00000520| 29 87 08 f7 3d ab 83 f8 | 20 87 08 f9 3d ab ae 5c |)...=...| ...=..\|
|00000530| 6e fa 3d 85 2b 02 fb 0e | 3c 0e 3d 5c 22 89 1e 0d |n.=.+...|<.=\"...|
|00000540| 3b ab 8f fe ff 0e 0d 5c | 22 ab 88 0e 0d d6 95 ca |;......\|".......|
|00000550| 4f 16 0d 81 40 00 0e 0d | 81 41 00 0e 42 52 29 87 |O...@...|.A..BR).|
|00000560| 08 81 43 00 3d ab 95 81 | 44 00 20 85 2b 02 0e 25 |..C.=...|D. .+..%|
|00000570| ad fc c8 81 45 00 20 0e | 25 44 21 87 08 81 46 00 |....E. .|%D!...F.|
|00000580| 3d ab 96 f1 20 1e 47 81 | 48 00 0e 47 21 ac 86 cb |=... .G.|H..G!...|
|00000590| 0e 47 21 ad 82 0e 47 29 | 87 08 81 49 00 3d ab 83 |.G!...G)|...I.=..|
|000005a0| f1 20 87 08 81 4a 00 3d | ab 82 67 87 08 81 4b 00 |. ...J.=|..g...K.|
|000005b0| 3d ab a0 81 4c 00 81 4d | 00 21 88 81 4e 00 da 81 |=...L..M|.!..N...|
|000005c0| 4f 00 81 50 00 23 89 1e | 51 ad 86 81 52 00 0e 51 |O..P.#..|Q...R..Q|
|000005d0| 21 29 87 08 81 53 00 3d | ad 94 8a 81 54 00 ca 78 |!)...S.=|....T..x|
|000005e0| 88 c4 81 55 00 21 ad 85 | 81 56 00 70 21 29 87 22 |...U.!..|.V.p!)."|
|000005f0| 20 5b 68 61 72 67 73 3a | 72 65 61 64 69 6e 67 2d | [hargs:|reading-|
|00000600| 70 20 6b 63 65 6c 6c 20 | 6d 61 6a 6f 72 2d 6d 6f |p kcell |major-mo|
|00000610| 64 65 20 6b 6f 74 6c 2d | 6d 6f 64 65 20 6c 6f 6f |de kotl-|mode loo|
|00000620| 6b 69 6e 67 2d 61 74 20 | 22 5e 24 22 20 6b 63 65 |king-at |"^$" kce|
|00000630| 6c 6c 2d 76 69 65 77 3a | 6c 61 62 65 6c 20 6b 6c |ll-view:|label kl|
|00000640| 69 6e 6b 20 70 72 69 6e | 31 2d 74 6f 2d 73 74 72 |ink prin|1-to-str|
|00000650| 69 6e 67 20 6b 63 65 6c | 6c 2d 76 69 65 77 3a 72 |ing kcel|l-view:r|
|00000660| 65 66 65 72 65 6e 63 65 | 20 6e 69 6c 20 62 6f 75 |eference| nil bou|
|00000670| 6e 64 70 20 64 65 66 61 | 75 6c 74 2d 64 69 72 20 |ndp defa|ult-dir |
|00000680| 66 69 6c 65 20 68 61 72 | 67 73 3a 61 74 2d 70 20 |file har|gs:at-p |
|00000690| 68 6d 65 6e 75 20 73 65 | 6c 65 63 74 65 64 2d 77 |hmenu se|lected-w|
|000006a0| 69 6e 64 6f 77 20 6d 69 | 6e 69 62 75 66 66 65 72 |indow mi|nibuffer|
|000006b0| 2d 77 69 6e 64 6f 77 20 | 63 68 61 72 2d 74 6f 2d |-window |char-to-|
|000006c0| 73 74 72 69 6e 67 20 73 | 65 61 72 63 68 2d 62 61 |string s|earch-ba|
|000006d0| 63 6b 77 61 72 64 20 22 | 20 22 20 74 20 30 20 68 |ckward "| " t 0 h|
|000006e0| 61 72 67 73 3a 63 6f 6d | 70 6c 65 74 69 6f 6e 20 |args:com|pletion |
|000006f0| 65 62 75 74 20 65 62 75 | 74 3a 6c 61 62 65 6c 2d |ebut ebu|t:label-|
|00000700| 70 20 61 73 2d 6c 61 62 | 65 6c 20 68 70 61 74 68 |p as-lab|el hpath|
|00000710| 3a 61 74 2d 70 20 6e 6f | 6e 2d 65 78 69 73 74 20 |:at-p no|n-exist |
|00000720| 64 69 72 65 64 2d 6d 6f | 64 65 20 64 69 72 65 64 |dired-mo|de dired|
|00000730| 2d 67 65 74 2d 66 69 6c | 65 6e 61 6d 65 20 68 70 |-get-fil|ename hp|
|00000740| 61 74 68 3a 61 62 73 6f | 6c 75 74 65 2d 74 6f 20 |ath:abso|lute-to |
|00000750| 6d 6f 6e 6b 65 79 2d 6d | 6f 64 65 20 6d 6f 6e 6b |monkey-m|ode monk|
|00000760| 65 79 2d 66 69 6c 65 6e | 61 6d 65 20 68 70 61 74 |ey-filen|ame hpat|
|00000770| 68 3a 69 73 2d 70 20 68 | 70 61 74 68 3a 61 6e 67 |h:is-p h|path:ang|
|00000780| 65 2d 66 74 70 2d 61 74 | 2d 70 20 6e 6f 2d 64 65 |e-ftp-at|-p no-de|
|00000790| 66 61 75 6c 74 20 62 75 | 66 66 65 72 2d 66 69 6c |fault bu|ffer-fil|
|000007a0| 65 2d 6e 61 6d 65 20 64 | 69 72 65 63 74 6f 72 79 |e-name d|irectory|
|000007b0| 20 64 69 72 20 66 69 6c | 65 2d 64 69 72 65 63 74 | dir fil|e-direct|
|000007c0| 6f 72 79 2d 70 20 64 65 | 66 61 75 6c 74 2d 64 69 |ory-p de|fault-di|
|000007d0| 72 65 63 74 6f 72 79 20 | 73 74 72 69 6e 67 20 68 |rectory |string h|
|000007e0| 61 72 67 73 3a 64 65 6c | 69 6d 69 74 65 64 20 22 |args:del|imited "|
|000007f0| 5c 22 22 20 22 27 22 20 | 22 60 22 20 61 63 74 79 |\"" "'" |"`" acty|
|00000800| 70 65 20 61 63 74 79 70 | 65 73 20 66 69 6e 64 2d |pe actyp|es find-|
|00000810| 74 61 67 2d 64 65 66 61 | 75 6c 74 20 6e 61 6d 65 |tag-defa|ult name|
|00000820| 20 73 65 74 3a 6d 65 6d | 62 65 72 20 68 74 79 70 | set:mem|ber htyp|
|00000830| 65 3a 6e 61 6d 65 73 20 | 69 62 74 79 70 65 20 69 |e:names |ibtype i|
|00000840| 62 74 79 70 65 73 20 73 | 65 78 70 72 65 73 73 69 |btypes s|expressi|
|00000850| 6f 6e 20 68 61 72 67 73 | 3a 73 65 78 70 72 65 73 |on hargs|:sexpres|
|00000860| 73 69 6f 6e 2d 70 20 49 | 6e 66 6f 2d 6e 6f 64 65 |sion-p I|nfo-node|
|00000870| 20 49 6e 66 6f 2d 6d 6f | 64 65 20 68 70 61 74 68 | Info-mo|de hpath|
|00000880| 3a 72 65 6c 61 74 69 76 | 65 2d 74 6f 20 49 6e 66 |:relativ|e-to Inf|
|00000890| 6f 2d 63 75 72 72 65 6e | 74 2d 66 69 6c 65 20 49 |o-curren|t-file I|
|000008a0| 6e 66 6f 2d 64 69 72 65 | 63 74 6f 72 79 20 73 74 |nfo-dire|ctory st|
|000008b0| 72 69 6e 67 2d 6d 61 74 | 63 68 20 22 5e 5c 5c 2e |ring-mat|ch "^\\.|
|000008c0| 2f 22 20 22 28 22 20 22 | 29 22 20 49 6e 66 6f 2d |/" "(" "|)" Info-|
|000008d0| 63 75 72 72 65 6e 74 2d | 6e 6f 64 65 20 6d 61 69 |current-|node mai|
|000008e0| 6c 20 68 6d 61 69 6c 3a | 72 65 61 64 65 72 2d 70 |l hmail:|reader-p|
|000008f0| 20 72 6d 61 69 6c 3a 6d | 73 67 2d 69 64 2d 67 65 | rmail:m|sg-id-ge|
|00000900| 74 20 73 79 6d 62 6f 6c | 20 73 79 6d 20 66 62 6f |t symbol| sym fbo|
|00000910| 75 6e 64 70 20 62 75 66 | 66 65 72 20 63 68 61 72 |undp buf|fer char|
|00000920| 61 63 74 65 72 20 6b 65 | 79 20 72 65 71 75 69 72 |acter ke|y requir|
|00000930| 65 20 68 69 62 2d 6b 62 | 64 20 68 62 75 74 3a 6c |e hib-kb|d hbut:l|
|00000940| 61 62 65 6c 2d 70 20 22 | 7b 22 20 22 7d 22 20 6b |abel-p "|{" "}" k|
|00000950| 65 79 2d 73 65 71 20 6b | 62 64 2d 6b 65 79 3a 6e |ey-seq k|bd-key:n|
|00000960| 6f 72 6d 61 6c 69 7a 65 | 20 69 6e 74 65 67 65 72 |ormalize| integer|
|00000970| 20 22 2d 30 2d 39 22 20 | 22 2d 3f 5b 30 2d 39 5d | "-0-9" |"-?[0-9]|
|00000980| 2b 22 20 72 65 61 64 5d | 20 36 20 22 5c 0a 52 65 |+" read]| 6 "\.Re|
|00000990| 74 75 72 6e 73 20 74 68 | 69 6e 67 20 61 74 20 70 |turns th|ing at p|
|000009a0| 6f 69 6e 74 2c 20 69 66 | 20 6f 66 20 68 61 72 67 |oint, if| of harg|
|000009b0| 73 3a 72 65 61 64 69 6e | 67 2d 70 20 74 79 70 65 |s:readin|g-p type|
|000009c0| 2c 20 6f 72 20 64 65 66 | 61 75 6c 74 2e 0a 49 66 |, or def|ault..If|
|000009d0| 20 6f 70 74 69 6f 6e 61 | 6c 20 61 72 67 75 6d 65 | optiona|l argume|
|000009e0| 6e 74 20 4e 4f 2d 44 45 | 46 41 55 4c 54 20 69 73 |nt NO-DE|FAULT is|
|000009f0| 20 6e 6f 6e 2d 6e 69 6c | 2c 20 6e 69 6c 20 69 73 | non-nil|, nil is|
|00000a00| 20 72 65 74 75 72 6e 65 | 64 20 69 6e 73 74 65 61 | returne|d instea|
|00000a10| 64 20 6f 66 20 61 6e 79 | 0a 64 65 66 61 75 6c 74 |d of any|.default|
|00000a20| 20 76 61 6c 75 65 73 2e | 0a 0a 43 61 6c 6c 65 72 | values.|..Caller|
|00000a30| 20 73 68 6f 75 6c 64 20 | 68 61 76 65 20 63 68 65 | should |have che|
|00000a40| 63 6b 65 64 20 77 68 65 | 74 68 65 72 20 61 6e 20 |cked whe|ther an |
|00000a50| 61 72 67 75 6d 65 6e 74 | 20 69 73 20 70 72 65 73 |argument| is pres|
|00000a60| 65 6e 74 6c 79 20 62 65 | 69 6e 67 20 72 65 61 64 |ently be|ing read|
|00000a70| 0a 61 6e 64 20 73 65 74 | 20 27 68 61 72 67 73 3a |.and set| 'hargs:|
|00000a80| 72 65 61 64 69 6e 67 2d | 70 27 20 74 6f 20 61 6e |reading-|p' to an|
|00000a90| 20 61 70 70 72 6f 70 72 | 69 61 74 65 20 61 72 67 | appropr|iate arg|
|00000aa0| 75 6d 65 6e 74 20 74 79 | 70 65 2e 0a 48 61 6e 64 |ument ty|pe..Hand|
|00000ab0| 6c 65 73 20 61 6c 6c 20 | 6f 66 20 74 68 65 20 69 |les all |of the i|
|00000ac0| 6e 74 65 72 61 63 74 69 | 76 65 20 61 72 67 75 6d |nteracti|ve argum|
|00000ad0| 65 6e 74 20 74 79 70 65 | 73 20 74 68 61 74 20 27 |ent type|s that '|
|00000ae0| 68 61 72 67 73 3a 69 66 | 6f 72 6d 2d 72 65 61 64 |hargs:if|orm-read|
|00000af0| 27 20 64 6f 65 73 2e 22 | 5d 29 0a 28 66 73 65 74 |' does."|]).(fset|
|00000b00| 20 27 68 61 72 67 73 3a | 63 6f 6d 70 6c 65 74 69 | 'hargs:|completi|
|00000b10| 6f 6e 20 23 5b 28 26 6f | 70 74 69 6f 6e 61 6c 20 |on #[(&o|ptional |
|00000b20| 6e 6f 2d 69 6e 73 65 72 | 74 29 20 22 c0 20 c1 9a |no-inser|t) ". ..|
|00000b30| ac 87 c0 20 c2 9a 85 cb | 00 60 c3 20 1c 1d c6 c7 |... ....|.`. ....|
|00000b40| c8 c9 23 85 ca 00 ca 20 | cb 56 ab 84 cc 20 aa 8c |..#.... |.V... ..|
|00000b50| c3 20 cd c8 21 3d 3f ad | 83 cd c8 21 c8 89 1e 0e |. ..!=?.|...!....|
|00000b60| 1e 0f 1e 10 d1 c8 77 88 | 0e 10 ab f5 d2 d3 21 ab |......w.|......!.|
|00000b70| f0 cb 94 cb 95 7b 16 0e | d4 0e 10 21 88 60 8a cb |.....{..|...!.`..|
|00000b80| 79 88 60 29 7b 1e 15 c3 | 20 cc 20 3d ab b5 d6 d7 |y.`){...| . =....|
|00000b90| 0e 0e 21 d8 50 0e 15 5c | 22 ab 84 0e 15 aa 95 d6 |..!.P..\|".......|
|00000ba0| d9 0e 15 5c 22 ab 89 0e | 15 cb 89 94 54 4f aa 82 |...\"...|....TO..|
|00000bb0| 0e 15 0e 0e 50 16 0e 0e | 1a ac a7 0e 0e ab a3 0e |....P...|........|
|00000bc0| 0e 63 88 aa 9d 0e 1a ac | 99 d6 d7 0e 0e 21 d8 50 |.c......|.....!.P|
|00000bd0| 0e 15 5c 22 ac 84 0e 0e | ac 85 c9 16 0f aa 84 0e |..\"....|........|
|00000be0| 0e 63 88 29 d4 0c 21 88 | 0d 62 88 0e 0f ab 87 db |.c.)..!.|.b......|
|00000bf0| c8 21 88 dc 20 88 0e 0e | 2b 2a 87 22 20 5b 62 75 |.!.. ...|+*." [bu|
|00000c00| 66 66 65 72 2d 6e 61 6d | 65 20 22 2a 43 6f 6d 70 |ffer-nam|e "*Comp|
|00000c10| 6c 65 74 69 6f 6e 73 2a | 22 20 22 20 2a 43 6f 6d |letions*|" " *Com|
|00000c20| 70 6c 65 74 69 6f 6e 73 | 2a 22 20 73 65 6c 65 63 |pletions|*" selec|
|00000c30| 74 65 64 2d 77 69 6e 64 | 6f 77 20 6f 77 69 6e 64 |ted-wind|ow owind|
|00000c40| 20 6f 70 6f 69 6e 74 20 | 72 65 2d 73 65 61 72 63 | opoint |re-searc|
|00000c50| 68 2d 62 61 63 6b 77 61 | 72 64 20 22 5e 5c 5c 7c |h-backwa|rd "^\\||
|00000c60| 5b 20 09 5d 5b 20 09 5d | 22 20 6e 69 6c 20 74 20 |[ .][ .]|" nil t |
|00000c70| 6d 69 6e 69 62 75 66 66 | 65 72 2d 64 65 70 74 68 |minibuff|er-depth|
|00000c80| 20 30 20 6d 69 6e 69 62 | 75 66 66 65 72 2d 77 69 | 0 minib|uffer-wi|
|00000c90| 6e 64 6f 77 20 6e 65 78 | 74 2d 77 69 6e 64 6f 77 |ndow nex|t-window|
|00000ca0| 20 65 6e 74 72 79 20 62 | 75 72 79 2d 63 6f 6d 70 | entry b|ury-comp|
|00000cb0| 6c 65 74 69 6f 6e 73 20 | 69 6e 73 65 72 74 2d 77 |letions |insert-w|
|00000cc0| 69 6e 64 6f 77 20 22 20 | 09 22 20 6c 6f 6f 6b 69 |indow " |." looki|
|00000cd0| 6e 67 2d 61 74 20 22 5b | 5e 09 5c 6e 5d 2b 22 20 |ng-at "[|^.\n]+" |
|00000ce0| 73 65 6c 65 63 74 2d 77 | 69 6e 64 6f 77 20 73 74 |select-w|indow st|
|00000cf0| 72 20 73 74 72 69 6e 67 | 2d 6d 61 74 63 68 20 72 |r string|-match r|
|00000d00| 65 67 65 78 70 2d 71 75 | 6f 74 65 20 22 5c 5c 27 |egexp-qu|ote "\\'|
|00000d10| 22 20 22 2f 5b 5e 2f 5d | 2b 5c 5c 27 22 20 6e 6f |" "/[^/]|+\\'" no|
|00000d20| 2d 69 6e 73 65 72 74 20 | 62 75 72 79 2d 62 75 66 |-insert |bury-buf|
|00000d30| 66 65 72 20 64 65 6c 65 | 74 65 2d 77 69 6e 64 6f |fer dele|te-windo|
|00000d40| 77 5d 20 34 20 22 5c 0a | 49 66 20 69 6e 20 74 68 |w] 4 "\.|If in th|
|00000d50| 65 20 63 6f 6d 70 6c 65 | 74 69 6f 6e 73 20 62 75 |e comple|tions bu|
|00000d60| 66 66 65 72 2c 20 72 65 | 74 75 72 6e 20 63 6f 6d |ffer, re|turn com|
|00000d70| 70 6c 65 74 69 6f 6e 20 | 61 74 20 70 6f 69 6e 74 |pletion |at point|
|00000d80| 2e 20 20 41 6c 73 6f 20 | 69 6e 73 65 72 74 20 75 |.  Also |insert u|
|00000d90| 6e 6c 65 73 73 20 6f 70 | 74 69 6f 6e 61 6c 20 4e |nless op|tional N|
|00000da0| 4f 2d 49 4e 53 45 52 54 | 20 69 73 20 6e 6f 6e 2d |O-INSERT| is non-|
|00000db0| 6e 69 6c 2e 0a 49 6e 73 | 65 72 74 20 69 6e 20 6d |nil..Ins|ert in m|
|00000dc0| 69 6e 69 62 75 66 66 65 | 72 20 69 66 20 61 63 74 |inibuffe|r if act|
|00000dd0| 69 76 65 20 6f 72 20 69 | 6e 20 6f 74 68 65 72 20 |ive or i|n other |
|00000de0| 77 69 6e 64 6f 77 20 69 | 66 20 6d 69 6e 69 62 75 |window i|f minibu|
|00000df0| 66 66 65 72 20 69 73 20 | 69 6e 61 63 74 69 76 65 |ffer is |inactive|
|00000e00| 2e 22 20 27 28 6e 69 6c | 29 5d 29 0a 28 66 73 65 |." '(nil|)]).(fse|
|00000e10| 74 20 27 68 61 72 67 73 | 3a 69 66 6f 72 6d 2d 72 |t 'hargs|:iform-r|
|00000e20| 65 61 64 20 23 5b 28 69 | 66 6f 72 6d 20 26 6f 70 |ead #[(i|form &op|
|00000e30| 74 69 6f 6e 61 6c 20 6d | 6f 64 69 66 79 69 6e 67 |tional m|odifying|
|00000e40| 29 20 22 08 11 5c 6e 3c | ab 86 5c 6e 40 c3 3d ac |) "..\n<|..\n@.=.|
|00000e50| 84 c4 c5 21 87 5c 6e 41 | 40 89 12 3f ae 87 5c 6e |...!.\nA|@..?..\n|
|00000e60| 3b ad 83 5c 6e c6 9a 3f | 85 20 01 0e 07 1e 08 c9 |;..\n..?|. ......|
|00000e70| 8e ca 16 07 5c 6e 3b ac | 9f 0e 0b ab 86 cc cd ce |....\n;.|........|
|00000e80| 5c 22 aa 8c cf d0 21 ad | 87 0e 10 3c ad 82 0e 10 |\"....!.|...<....|
|00000e90| 1e 11 d2 5c 6e 21 29 82 | 1f 01 d3 89 5c 6e 47 d4 |...\n!).|....\nG.|
|00000ea0| 89 89 89 0e 0b ab 86 cc | cd ce 5c 22 aa 8c cf d0 |........|..\"....|
|00000eb0| 21 ad 87 0e 10 3c ad 82 | 0e 10 1e 11 1e 15 1e 16 |!....<..|........|
|00000ec0| 1e 17 1e 18 1e 19 1e 1a | 1e 1b 5c 6e 0e 1b 48 dc |........|..\n..H.|
|00000ed0| 3d ac 9b 5c 6e 0e 1b 48 | dd 3d ab 85 de 20 88 aa |=..\n..H|.=... ..|
|00000ee0| 8e 5c 6e 0e 1b 48 df 3d | ab 90 ca 89 16 20 ab 8a |.\n..H.=|..... ..|
|00000ef0| 0e 1b 54 89 16 1b 16 1a | aa 53 0e 1a 0e 19 57 ab |..T.....|.S....W.|
|00000f00| e9 e1 e2 5c 6e 0e 1a 23 | ab e1 d3 95 16 1a 5c 6e |...\n..#|......\n|
|00000f10| 0e 1b d3 94 4f 16 18 0e | 1a 16 1b 0e 11 40 89 16 |....O...|.....@..|
|00000f20| 15 ab 85 0e 15 3b ab 84 | 0e 15 aa 84 e3 0e 15 21 |.....;..|.......!|
|00000f30| 16 15 e4 0e 18 0e 15 0e | 17 40 23 16 16 0e 11 41 |........|.@#....A|
|00000f40| 16 11 0e 16 ab 85 0e 16 | 3c ac 87 0e 16 0e 17 42 |........|<......B|
|00000f50| aa 96 0e 16 40 ce 3d ab | 8a e5 0e 16 41 9f 0e 17 |....@.=.|....A...|
|00000f60| 5c 22 aa 85 0e 16 0e 17 | 42 16 17 aa 10 0e 17 9f |\"......|B.......|
|00000f70| 2e 08 2a 87 22 20 5b 63 | 75 72 72 65 6e 74 2d 70 |..*." [c|urrent-p|
|00000f80| 72 65 66 69 78 2d 61 72 | 67 20 70 72 65 66 69 78 |refix-ar|g prefix|
|00000f90| 2d 61 72 67 20 69 66 6f | 72 6d 20 69 6e 74 65 72 |-arg ifo|rm inter|
|00000fa0| 61 63 74 69 76 65 20 65 | 72 72 6f 72 20 22 28 68 |active e|rror "(h|
|00000fb0| 61 72 67 73 3a 69 66 6f | 72 6d 2d 72 65 61 64 29 |args:ifo|rm-read)|
|00000fc0| 3a 20 61 72 67 20 6d 75 | 73 74 20 62 65 20 61 20 |: arg mu|st be a |
|00000fd0| 6c 69 73 74 20 77 68 6f | 73 65 20 63 61 72 20 3d |list who|se car =|
|00000fe0| 20 27 69 6e 74 65 72 61 | 63 74 69 76 65 2e 22 20 | 'intera|ctive." |
|00000ff0| 22 22 20 68 61 72 67 73 | 3a 72 65 61 64 69 6e 67 |"" hargs|:reading|
|00001000| 2d 70 20 70 72 65 76 2d | 72 65 61 64 69 6e 67 2d |-p prev-|reading-|
|00001010| 70 20 28 28 62 79 74 65 | 2d 63 6f 64 65 20 22 08 |p ((byte|-code ".|
|00001020| 11 c2 87 22 20 5b 70 72 | 65 76 2d 72 65 61 64 69 |..." [pr|ev-readi|
|00001030| 6e 67 2d 70 20 68 61 72 | 67 73 3a 72 65 61 64 69 |ng-p har|gs:readi|
|00001040| 6e 67 2d 70 20 6e 69 6c | 5d 20 31 29 29 20 74 20 |ng-p nil|] 1)) t |
|00001050| 6d 6f 64 69 66 79 69 6e | 67 20 68 61 74 74 72 3a |modifyin|g hattr:|
|00001060| 67 65 74 20 68 62 75 74 | 3a 63 75 72 72 65 6e 74 |get hbut|:current|
|00001070| 20 61 72 67 73 20 62 6f | 75 6e 64 70 20 68 61 72 | args bo|undp har|
|00001080| 67 73 3a 64 65 66 61 75 | 6c 74 73 20 64 65 66 61 |gs:defau|lts defa|
|00001090| 75 6c 74 73 20 65 76 61 | 6c 20 30 20 6e 69 6c 20 |ults eva|l 0 nil |
|000010a0| 64 65 66 61 75 6c 74 20 | 76 61 6c 20 72 65 73 75 |default |val resu|
|000010b0| 6c 74 73 20 69 65 6e 74 | 72 79 20 65 6e 64 20 73 |lts ient|ry end s|
|000010c0| 74 61 72 74 20 69 20 34 | 32 20 36 34 20 68 61 72 |tart i 4|2 64 har|
|000010d0| 67 73 3a 73 65 6c 65 63 | 74 2d 65 76 65 6e 74 2d |gs:selec|t-event-|
|000010e0| 77 69 6e 64 6f 77 20 39 | 35 20 7a 6d 61 63 73 2d |window 9|5 zmacs-|
|000010f0| 72 65 67 69 6f 6e 2d 73 | 74 61 79 73 20 73 74 72 |region-s|tays str|
|00001100| 69 6e 67 2d 6d 61 74 63 | 68 20 22 5c 6e 5c 5c 7c |ing-matc|h "\n\\||
|00001110| 5c 5c 27 22 20 70 72 69 | 6e 31 2d 74 6f 2d 73 74 |\\'" pri|n1-to-st|
|00001120| 72 69 6e 67 20 68 61 72 | 67 73 3a 67 65 74 20 61 |ring har|gs:get a|
|00001130| 70 70 65 6e 64 5d 20 31 | 31 20 22 5c 0a 52 65 61 |ppend] 1|1 "\.Rea|
|00001140| 64 73 20 61 63 74 69 6f | 6e 20 61 72 67 75 6d 65 |ds actio|n argume|
|00001150| 6e 74 73 20 61 63 63 6f | 72 64 69 6e 67 20 74 6f |nts acco|rding to|
|00001160| 20 49 46 4f 52 4d 2c 20 | 61 20 6c 69 73 74 20 77 | IFORM, |a list w|
|00001170| 69 74 68 20 63 61 72 20 | 3d 20 27 69 6e 74 65 72 |ith car |= 'inter|
|00001180| 61 63 74 69 76 65 2e 0a | 4f 70 74 69 6f 6e 61 6c |active..|Optional|
|00001190| 20 4d 4f 44 49 46 59 49 | 4e 47 20 6e 6f 6e 2d 6e | MODIFYI|NG non-n|
|000011a0| 69 6c 20 69 6e 64 69 63 | 61 74 65 73 20 63 75 72 |il indic|ates cur|
|000011b0| 72 65 6e 74 20 62 75 74 | 74 6f 6e 20 69 73 20 62 |rent but|ton is b|
|000011c0| 65 69 6e 67 20 6d 6f 64 | 69 66 69 65 64 2c 20 73 |eing mod|ified, s|
|000011d0| 6f 0a 62 75 74 74 6f 6e | 27 73 20 63 75 72 72 65 |o.button|'s curre|
|000011e0| 6e 74 20 76 61 6c 75 65 | 73 20 73 68 6f 75 6c 64 |nt value|s should|
|000011f0| 20 62 65 20 70 72 65 73 | 65 6e 74 65 64 20 61 73 | be pres|ented as|
|00001200| 20 64 65 66 61 75 6c 74 | 73 2e 20 20 4f 74 68 65 | default|s.  Othe|
|00001210| 72 77 69 73 65 2c 20 75 | 73 65 73 0a 68 61 72 67 |rwise, u|ses.harg|
|00001220| 73 3a 64 65 66 61 75 6c | 74 73 20 61 73 20 6c 69 |s:defaul|ts as li|
|00001230| 73 74 20 6f 66 20 64 65 | 66 61 75 6c 74 73 2c 20 |st of de|faults, |
|00001240| 69 66 20 61 6e 79 2e 0a | 53 65 65 20 61 6c 73 6f |if any..|See also|
|00001250| 20 64 6f 63 75 6d 65 6e | 74 61 74 69 6f 6e 20 66 | documen|tation f|
|00001260| 6f 72 20 27 69 6e 74 65 | 72 61 63 74 69 76 65 27 |or 'inte|ractive'|
|00001270| 2e 22 5d 29 0a 28 66 73 | 65 74 20 27 68 61 72 67 |."]).(fs|et 'harg|
|00001280| 73 3a 72 65 61 64 20 23 | 5b 28 70 72 6f 6d 70 74 |s:read #|[(prompt|
|00001290| 20 26 6f 70 74 69 6f 6e | 61 6c 20 70 72 65 64 69 | &option|al predi|
|000012a0| 63 61 74 65 20 64 65 66 | 61 75 6c 74 20 65 72 72 |cate def|ault err|
|000012b0| 20 76 61 6c 2d 74 79 70 | 65 29 20 22 c0 89 89 09 | val-typ|e) "....|
|000012c0| c0 c2 20 70 1b 1c 1d 1e | 06 1e 07 1e 08 1e 09 ca |.. p....|........|
|000012d0| 8e 0e 0b ab 86 0e 0b cc | 3d ab 86 cd 15 cc 11 aa |........|=.......|
|000012e0| 94 0e 0b ce 3d ab 86 cd | 15 ce 11 aa 88 cf 15 0e |....=...|........|
|000012f0| 0b 11 d0 16 07 0e 11 ab | 8b 0e 11 3b ac 86 d2 0e |........|...;....|
|00001300| 11 21 16 11 c0 d3 d4 8f | 88 0e 09 ac 9f 0e 07 ab |.!......|........|
|00001310| 90 d5 d6 0e 08 5c 22 ab | 89 0e 08 d7 94 d7 95 4f |.....\".|.......O|
|00001320| 16 08 0e 18 ab a6 0e 18 | 0e 08 21 ac 9f 0e 09 ab |........|..!.....|
|00001330| 85 c0 16 09 aa 84 0e 08 | 16 11 d9 20 88 0e 1a ab |........|... ....|
|00001340| 35 db 0e 1a 21 88 dc dd | 21 88 aa 2a 0e 08 2e 08 |5...!...|!..*....|
|00001350| 87 22 20 5b 6e 69 6c 20 | 68 61 72 67 73 3a 72 65 |." [nil |hargs:re|
|00001360| 61 64 69 6e 67 2d 70 20 | 73 65 6c 65 63 74 65 64 |ading-p |selected|
|00001370| 2d 77 69 6e 64 6f 77 20 | 6f 62 75 66 20 6f 77 69 |-window |obuf owi|
|00001380| 6e 64 20 72 65 61 64 2d | 66 75 6e 63 20 70 72 65 |nd read-|func pre|
|00001390| 76 2d 72 65 61 64 69 6e | 67 2d 70 20 73 74 72 69 |v-readin|g-p stri|
|000013a0| 6e 67 69 66 79 20 76 61 | 6c 20 62 61 64 2d 76 61 |ngify va|l bad-va|
|000013b0| 6c 20 28 28 62 79 74 65 | 2d 63 6f 64 65 20 22 08 |l ((byte|-code ".|
|000013c0| 11 c2 0b 21 88 c4 0d 21 | 87 22 20 5b 70 72 65 76 |...!...!|." [prev|
|000013d0| 2d 72 65 61 64 69 6e 67 | 2d 70 20 68 61 72 67 73 |-reading|-p hargs|
|000013e0| 3a 72 65 61 64 69 6e 67 | 2d 70 20 73 65 6c 65 63 |:reading|-p selec|
|000013f0| 74 2d 77 69 6e 64 6f 77 | 20 6f 77 69 6e 64 20 73 |t-window| owind s|
|00001400| 77 69 74 63 68 2d 74 6f | 2d 62 75 66 66 65 72 20 |witch-to|-buffer |
|00001410| 6f 62 75 66 5d 20 32 29 | 29 20 76 61 6c 2d 74 79 |obuf] 2)|) val-ty|
|00001420| 70 65 20 73 65 78 70 72 | 65 73 73 69 6f 6e 20 72 |pe sexpr|ession r|
|00001430| 65 61 64 2d 6d 69 6e 69 | 62 75 66 66 65 72 20 6b |ead-mini|buffer k|
|00001440| 6c 69 6e 6b 20 72 65 61 | 64 2d 73 74 72 69 6e 67 |link rea|d-string|
|00001450| 20 74 20 64 65 66 61 75 | 6c 74 20 70 72 69 6e 31 | t defau|lt prin1|
|00001460| 2d 74 6f 2d 73 74 72 69 | 6e 67 20 28 62 79 74 65 |-to-stri|ng (byte|
|00001470| 2d 63 6f 64 65 20 22 08 | ac 85 09 5c 6e 0b 5c 22 |-code ".|...\n.\"|
|00001480| 14 c5 87 22 20 5b 62 61 | 64 2d 76 61 6c 20 72 65 |..." [ba|d-val re|
|00001490| 61 64 2d 66 75 6e 63 20 | 70 72 6f 6d 70 74 20 64 |ad-func |prompt d|
|000014a0| 65 66 61 75 6c 74 20 76 | 61 6c 20 6e 69 6c 5d 20 |efault v|al nil] |
|000014b0| 33 29 20 28 28 65 72 72 | 6f 72 20 28 62 79 74 65 |3) ((err|or (byte|
|000014c0| 2d 63 6f 64 65 20 22 c0 | 11 c0 87 22 20 5b 74 20 |-code ".|..." [t |
|000014d0| 62 61 64 2d 76 61 6c 5d | 20 31 29 29 29 20 73 74 |bad-val]| 1))) st|
|000014e0| 72 69 6e 67 2d 6d 61 74 | 63 68 20 22 5c 5c 60 5c |ring-mat|ch "\\`\|
|000014f0| 22 5c 5c 28 5b 5e 5c 22 | 5d 2a 5c 5c 29 5c 22 5c |"\\([^\"|]*\\)\"\|
|00001500| 5c 27 22 20 31 20 70 72 | 65 64 69 63 61 74 65 20 |\'" 1 pr|edicate |
|00001510| 62 65 65 70 20 65 72 72 | 20 6d 65 73 73 61 67 65 |beep err| message|
|00001520| 20 73 69 74 2d 66 6f 72 | 20 33 5d 20 37 20 22 5c | sit-for| 3] 7 "\|
|00001530| 0a 50 52 4f 4d 50 54 73 | 20 77 69 74 68 6f 75 74 |.PROMPTs| without|
|00001540| 20 63 6f 6d 70 6c 65 74 | 69 6f 6e 20 66 6f 72 20 | complet|ion for |
|00001550| 61 20 76 61 6c 75 65 20 | 6d 61 74 63 68 69 6e 67 |a value |matching|
|00001560| 20 50 52 45 44 49 43 41 | 54 45 20 61 6e 64 20 72 | PREDICA|TE and r|
|00001570| 65 74 75 72 6e 73 20 69 | 74 2e 0a 50 52 45 44 49 |eturns i|t..PREDI|
|00001580| 43 41 54 45 20 69 73 20 | 61 6e 20 6f 70 74 69 6f |CATE is |an optio|
|00001590| 6e 61 6c 20 62 6f 6f 6c | 65 61 6e 20 66 75 6e 63 |nal bool|ean func|
|000015a0| 74 69 6f 6e 20 6f 66 20 | 6f 6e 65 20 61 72 67 75 |tion of |one argu|
|000015b0| 6d 65 6e 74 2e 20 20 4f | 70 74 69 6f 6e 61 6c 20 |ment.  O|ptional |
|000015c0| 44 45 46 41 55 4c 54 0a | 69 73 20 61 20 73 74 72 |DEFAULT.|is a str|
|000015d0| 69 6e 67 20 74 6f 20 69 | 6e 73 65 72 74 20 61 66 |ing to i|nsert af|
|000015e0| 74 65 72 20 50 52 4f 4d | 50 54 20 61 73 20 74 68 |ter PROM|PT as th|
|000015f0| 65 20 64 65 66 61 75 6c | 74 20 72 65 74 75 72 6e |e defaul|t return|
|00001600| 20 76 61 6c 75 65 2e 20 | 20 4f 70 74 69 6f 6e 61 | value. | Optiona|
|00001610| 6c 0a 45 52 52 20 69 73 | 20 61 20 73 74 72 69 6e |l.ERR is| a strin|
|00001620| 67 20 74 6f 20 64 69 73 | 70 6c 61 79 20 74 65 6d |g to dis|play tem|
|00001630| 70 6f 72 61 72 69 6c 79 | 20 77 68 65 6e 20 61 6e |porarily| when an|
|00001640| 20 69 6e 76 61 6c 69 64 | 20 76 61 6c 75 65 20 69 | invalid| value i|
|00001650| 73 20 67 69 76 65 6e 2e | 0a 4f 70 74 69 6f 6e 61 |s given.|.Optiona|
|00001660| 6c 20 56 41 4c 2d 54 59 | 50 45 20 69 73 20 61 20 |l VAL-TY|PE is a |
|00001670| 73 79 6d 62 6f 6c 20 69 | 6e 64 69 63 61 74 69 6e |symbol i|ndicatin|
|00001680| 67 20 74 79 70 65 20 6f | 66 20 76 61 6c 75 65 20 |g type o|f value |
|00001690| 74 6f 20 62 65 20 72 65 | 61 64 2e 20 20 49 66 0a |to be re|ad.  If.|
|000016a0| 56 41 4c 2d 54 59 50 45 | 20 69 73 20 6e 6f 74 20 |VAL-TYPE| is not |
|000016b0| 65 71 75 61 6c 20 74 6f | 20 27 73 65 78 70 72 65 |equal to| 'sexpre|
|000016c0| 73 73 69 6f 6e 27 20 6f | 72 20 27 6b 6c 69 6e 6b |ssion' o|r 'klink|
|000016d0| 27 20 61 6e 64 20 69 73 | 20 6e 6f 6e 2d 6e 69 6c |' and is| non-nil|
|000016e0| 2c 20 76 61 6c 75 65 20 | 69 73 0a 72 65 74 75 72 |, value |is.retur|
|000016f0| 6e 65 64 20 61 73 20 61 | 20 73 74 72 69 6e 67 2e |ned as a| string.|
|00001700| 22 5d 29 0a 28 66 73 65 | 74 20 27 68 61 72 67 73 |"]).(fse|t 'hargs|
|00001710| 3a 72 65 61 64 2d 6d 61 | 74 63 68 20 23 5b 28 70 |:read-ma|tch #[(p|
|00001720| 72 6f 6d 70 74 20 74 61 | 62 6c 65 20 26 6f 70 74 |rompt ta|ble &opt|
|00001730| 69 6f 6e 61 6c 20 70 72 | 65 64 69 63 61 74 65 20 |ional pr|edicate |
|00001740| 6d 75 73 74 2d 6d 61 74 | 63 68 20 64 65 66 61 75 |must-mat|ch defau|
|00001750| 6c 74 20 76 61 6c 2d 74 | 79 70 65 29 20 22 08 ad |lt val-t|ype) "..|
|00001760| 82 09 3f 3f ad 9f 5c 6e | c3 c4 20 70 1d 1e 06 1e |..??..\n|.. p....|
|00001770| 07 1e 08 c9 8e 0e 5c 6e | ae 81 c3 12 cb 0e 0c 09 |......\n|........|
|00001780| 0e 0d 08 0e 0e 25 2d 87 | 22 20 5b 6d 75 73 74 2d |.....%-.|" [must-|
|00001790| 6d 61 74 63 68 20 74 61 | 62 6c 65 20 68 61 72 67 |match ta|ble harg|
|000017a0| 73 3a 72 65 61 64 69 6e | 67 2d 70 20 74 20 73 65 |s:readin|g-p t se|
|000017b0| 6c 65 63 74 65 64 2d 77 | 69 6e 64 6f 77 20 6f 62 |lected-w|indow ob|
|000017c0| 75 66 20 6f 77 69 6e 64 | 20 63 6f 6d 70 6c 65 74 |uf owind| complet|
|000017d0| 69 6f 6e 2d 69 67 6e 6f | 72 65 2d 63 61 73 65 20 |ion-igno|re-case |
|000017e0| 70 72 65 76 2d 72 65 61 | 64 69 6e 67 2d 70 20 28 |prev-rea|ding-p (|
|000017f0| 28 62 79 74 65 2d 63 6f | 64 65 20 22 08 11 c2 0b |(byte-co|de "....|
|00001800| 21 88 c4 0d 21 87 22 20 | 5b 70 72 65 76 2d 72 65 |!...!." |[prev-re|
|00001810| 61 64 69 6e 67 2d 70 20 | 68 61 72 67 73 3a 72 65 |ading-p |hargs:re|
|00001820| 61 64 69 6e 67 2d 70 20 | 73 65 6c 65 63 74 2d 77 |ading-p |select-w|
|00001830| 69 6e 64 6f 77 20 6f 77 | 69 6e 64 20 73 77 69 74 |indow ow|ind swit|
|00001840| 63 68 2d 74 6f 2d 62 75 | 66 66 65 72 20 6f 62 75 |ch-to-bu|ffer obu|
|00001850| 66 5d 20 32 29 29 20 76 | 61 6c 2d 74 79 70 65 20 |f] 2)) v|al-type |
|00001860| 63 6f 6d 70 6c 65 74 69 | 6e 67 2d 72 65 61 64 20 |completi|ng-read |
|00001870| 70 72 6f 6d 70 74 20 70 | 72 65 64 69 63 61 74 65 |prompt p|redicate|
|00001880| 20 64 65 66 61 75 6c 74 | 5d 20 36 20 22 5c 0a 50 | default|] 6 "\.P|
|00001890| 52 4f 4d 50 54 73 20 77 | 69 74 68 20 63 6f 6d 70 |ROMPTs w|ith comp|
|000018a0| 6c 65 74 69 6f 6e 20 66 | 6f 72 20 61 20 76 61 6c |letion f|or a val|
|000018b0| 75 65 20 69 6e 20 54 41 | 42 4c 45 20 61 6e 64 20 |ue in TA|BLE and |
|000018c0| 72 65 74 75 72 6e 73 20 | 69 74 2e 0a 54 41 42 4c |returns |it..TABL|
|000018d0| 45 20 69 73 20 61 6e 20 | 61 6c 69 73 74 20 77 68 |E is an |alist wh|
|000018e0| 65 72 65 20 65 61 63 68 | 20 65 6c 65 6d 65 6e 74 |ere each| element|
|000018f0| 27 73 20 63 61 72 20 69 | 73 20 61 20 73 74 72 69 |'s car i|s a stri|
|00001900| 6e 67 2c 20 6f 72 20 69 | 74 20 6d 61 79 20 62 65 |ng, or i|t may be|
|00001910| 20 61 6e 0a 6f 62 61 72 | 72 61 79 20 66 6f 72 20 | an.obar|ray for |
|00001920| 73 79 6d 62 6f 6c 2d 6e | 61 6d 65 20 63 6f 6d 70 |symbol-n|ame comp|
|00001930| 6c 65 74 69 6f 6e 2e 0a | 4f 70 74 69 6f 6e 61 6c |letion..|Optional|
|00001940| 20 50 52 45 44 49 43 41 | 54 45 20 6c 69 6d 69 74 | PREDICA|TE limit|
|00001950| 73 20 74 61 62 6c 65 20 | 65 6e 74 72 69 65 73 20 |s table |entries |
|00001960| 74 6f 20 6d 61 74 63 68 | 20 61 67 61 69 6e 73 74 |to match| against|
|00001970| 2e 0a 4f 70 74 69 6f 6e | 61 6c 20 4d 55 53 54 2d |..Option|al MUST-|
|00001980| 4d 41 54 43 48 20 6d 65 | 61 6e 73 20 76 61 6c 75 |MATCH me|ans valu|
|00001990| 65 20 72 65 74 75 72 6e | 65 64 20 6d 75 73 74 20 |e return|ed must |
|000019a0| 62 65 20 66 72 6f 6d 20 | 54 41 42 4c 45 2e 0a 4f |be from |TABLE..O|
|000019b0| 70 74 69 6f 6e 61 6c 20 | 44 45 46 41 55 4c 54 20 |ptional |DEFAULT |
|000019c0| 69 73 20 61 20 73 74 72 | 69 6e 67 20 69 6e 73 65 |is a str|ing inse|
|000019d0| 72 74 65 64 20 61 66 74 | 65 72 20 50 52 4f 4d 50 |rted aft|er PROMP|
|000019e0| 54 20 61 73 20 64 65 66 | 61 75 6c 74 20 76 61 6c |T as def|ault val|
|000019f0| 75 65 2e 0a 4f 70 74 69 | 6f 6e 61 6c 20 56 41 4c |ue..Opti|onal VAL|
|00001a00| 2d 54 59 50 45 20 69 73 | 20 61 20 73 79 6d 62 6f |-TYPE is| a symbo|
|00001a10| 6c 20 69 6e 64 69 63 61 | 74 69 6e 67 20 74 79 70 |l indica|ting typ|
|00001a20| 65 20 6f 66 20 76 61 6c | 75 65 20 74 6f 20 62 65 |e of val|ue to be|
|00001a30| 20 72 65 61 64 2e 22 5d | 29 0a 28 66 73 65 74 20 | read."]|).(fset |
|00001a40| 27 68 61 72 67 73 3a 73 | 65 6c 65 63 74 2d 70 20 |'hargs:s|elect-p |
|00001a50| 23 5b 28 26 6f 70 74 69 | 6f 6e 61 6c 20 76 61 6c |#[(&opti|onal val|
|00001a60| 75 65 20 61 73 73 69 73 | 74 2d 66 6c 61 67 29 20 |ue assis|t-flag) |
|00001a70| 22 c0 20 c1 56 ad d5 5c | 6e ac 86 c3 20 89 12 ad |". .V..\|n... ...|
|00001a80| cc c4 20 c5 5c 6e ad 84 | c6 c7 5c 6e 5c 22 1e 08 |.. .\n..|..\n\"..|
|00001a90| 1e 09 1e 5c 6e cb 8e cc | cd 20 21 88 ce cd 20 21 |...\n...|. !... !|
|00001aa0| 71 88 0e 0f d0 3d ab 8e | 0e 11 ab 83 d2 16 0f d3 |q....=..|........|
|00001ab0| 0e 08 21 88 aa 99 0e 08 | d4 20 98 ab 85 d5 20 88 |..!.....|. .... .|
|00001ac0| aa 8d c5 16 16 d7 20 88 | 0e 08 63 88 d8 16 09 5c |...... .|..c....\|
|00001ad0| 6e 2c 87 22 20 5b 6d 69 | 6e 69 62 75 66 66 65 72 |n,." [mi|nibuffer|
|00001ae0| 2d 64 65 70 74 68 20 30 | 20 76 61 6c 75 65 20 68 |-depth 0| value h|
|00001af0| 61 72 67 73 3a 61 74 2d | 70 20 73 65 6c 65 63 74 |args:at-|p select|
|00001b00| 65 64 2d 77 69 6e 64 6f | 77 20 6e 69 6c 20 66 6f |ed-windo|w nil fo|
|00001b10| 72 6d 61 74 20 22 25 73 | 22 20 73 74 72 2d 76 61 |rmat "%s|" str-va|
|00001b20| 6c 75 65 20 62 61 63 6b | 2d 74 6f 20 6f 77 69 6e |lue back|-to owin|
|00001b30| 64 20 28 28 62 79 74 65 | 2d 63 6f 64 65 20 22 08 |d ((byte|-code ".|
|00001b40| ab 84 c1 5c 6e 21 88 c1 | 87 22 20 5b 62 61 63 6b |...\n!..|." [back|
|00001b50| 2d 74 6f 20 73 65 6c 65 | 63 74 2d 77 69 6e 64 6f |-to sele|ct-windo|
|00001b60| 77 20 6f 77 69 6e 64 5d | 20 32 29 29 20 73 65 6c |w owind]| 2)) sel|
|00001b70| 65 63 74 2d 77 69 6e 64 | 6f 77 20 6d 69 6e 69 62 |ect-wind|ow minib|
|00001b80| 75 66 66 65 72 2d 77 69 | 6e 64 6f 77 20 77 69 6e |uffer-wi|ndow win|
|00001b90| 64 6f 77 2d 62 75 66 66 | 65 72 20 68 61 72 67 73 |dow-buff|er hargs|
|00001ba0| 3a 72 65 61 64 69 6e 67 | 2d 70 20 68 6d 65 6e 75 |:reading|-p hmenu|
|00001bb0| 20 61 73 73 69 73 74 2d | 66 6c 61 67 20 68 6d 65 | assist-|flag hme|
|00001bc0| 6e 75 2d 68 65 6c 70 20 | 68 75 69 3a 6d 65 6e 75 |nu-help |hui:menu|
|00001bd0| 2d 65 6e 74 65 72 20 62 | 75 66 66 65 72 2d 73 74 |-enter b|uffer-st|
|00001be0| 72 69 6e 67 20 65 78 69 | 74 2d 6d 69 6e 69 62 75 |ring exi|t-minibu|
|00001bf0| 66 66 65 72 20 62 75 66 | 66 65 72 2d 72 65 61 64 |ffer buf|fer-read|
|00001c00| 2d 6f 6e 6c 79 20 65 72 | 61 73 65 2d 62 75 66 66 |-only er|ase-buff|
|00001c10| 65 72 20 74 5d 20 35 20 | 22 5c 0a 52 65 74 75 72 |er t] 5 |"\.Retur|
|00001c20| 6e 73 20 6f 70 74 69 6f | 6e 61 6c 20 56 41 4c 55 |ns optio|nal VALU|
|00001c30| 45 20 6f 72 20 76 61 6c | 75 65 20 73 65 6c 65 63 |E or val|ue selec|
|00001c40| 74 65 64 20 61 74 20 70 | 6f 69 6e 74 20 69 66 20 |ted at p|oint if |
|00001c50| 61 6e 79 2c 20 65 6c 73 | 65 20 6e 69 6c 2e 0a 49 |any, els|e nil..I|
|00001c60| 66 20 76 61 6c 75 65 20 | 69 73 20 74 68 65 20 73 |f value |is the s|
|00001c70| 61 6d 65 20 61 73 20 74 | 68 65 20 63 6f 6e 74 65 |ame as t|he conte|
|00001c80| 6e 74 73 20 6f 66 20 74 | 68 65 20 6d 69 6e 69 62 |nts of t|he minib|
|00001c90| 75 66 66 65 72 2c 20 69 | 74 20 69 73 20 75 73 65 |uffer, i|t is use|
|00001ca0| 64 20 61 73 0a 74 68 65 | 20 63 75 72 72 65 6e 74 |d as.the| current|
|00001cb0| 20 6d 69 6e 69 62 75 66 | 66 65 72 20 61 72 67 75 | minibuf|fer argu|
|00001cc0| 6d 65 6e 74 2c 20 6f 74 | 68 65 72 77 69 73 65 2c |ment, ot|herwise,|
|00001cd0| 20 74 68 65 20 6d 69 6e | 69 62 75 66 66 65 72 20 | the min|ibuffer |
|00001ce0| 69 73 20 65 72 61 73 65 | 64 0a 61 6e 64 20 76 61 |is erase|d.and va|
|00001cf0| 6c 75 65 20 69 73 20 69 | 6e 73 65 72 74 65 64 20 |lue is i|nserted |
|00001d00| 74 68 65 72 65 2e 0a 4f | 70 74 69 6f 6e 61 6c 20 |there..O|ptional |
|00001d10| 41 53 53 49 53 54 2d 46 | 4c 41 47 20 6e 6f 6e 2d |ASSIST-F|LAG non-|
|00001d20| 6e 69 6c 20 74 72 69 67 | 67 65 72 73 20 64 69 73 |nil trig|gers dis|
|00001d30| 70 6c 61 79 20 6f 66 20 | 48 79 70 65 72 62 6f 6c |play of |Hyperbol|
|00001d40| 65 20 6d 65 6e 75 20 69 | 74 65 6d 20 68 65 6c 70 |e menu i|tem help|
|00001d50| 20 77 68 65 6e 0a 61 70 | 70 72 6f 70 72 69 61 74 | when.ap|propriat|
|00001d60| 65 2e 22 5d 29 0a 28 62 | 79 74 65 2d 63 6f 64 65 |e."]).(b|yte-code|
|00001d70| 20 22 c0 c1 21 ac 84 c1 | c2 4d 88 c0 87 22 20 5b | "..!...|.M..." [|
|00001d80| 66 62 6f 75 6e 64 70 20 | 66 69 6e 64 2d 74 61 67 |fboundp |find-tag|
|00001d90| 2d 64 65 66 61 75 6c 74 | 20 23 5b 6e 69 6c 20 22 |-default| #[nil "|
|00001da0| c0 c1 21 ab 8b 09 c2 3e | ac 86 c3 c4 c5 8f ae b9 |..!....>|........|
|00001db0| 8a 68 7a c6 3e ac 8a c7 | c8 21 ac 85 c9 75 88 aa |.hz.>...|.!...u..|
|00001dc0| 76 c7 ca 21 ab 85 c9 75 | 88 aa 76 cb ca cc cd 23 |v..!...u|..v....#|
|00001dd0| ad 96 ce c9 75 88 60 cf | d0 21 88 c7 d1 21 ab 85 |....u.`.|.!...!..|
|00001de0| c9 75 88 aa 76 60 7b 21 | 29 87 22 20 5b 62 6f 75 |.u..v`{!|)." [bou|
|00001df0| 6e 64 70 20 66 69 6e 64 | 2d 74 61 67 2d 64 65 66 |ndp find|-tag-def|
|00001e00| 61 75 6c 74 2d 68 6f 6f | 6b 20 28 6e 69 6c 20 66 |ault-hoo|k (nil f|
|00001e10| 69 6e 64 2d 74 61 67 2d | 64 65 66 61 75 6c 74 29 |ind-tag-|default)|
|00001e20| 20 64 61 74 61 20 28 66 | 75 6e 63 61 6c 6c 20 66 | data (f|uncall f|
|00001e30| 69 6e 64 2d 74 61 67 2d | 64 65 66 61 75 6c 74 2d |ind-tag-|default-|
|00001e40| 68 6f 6f 6b 29 20 28 28 | 65 72 72 6f 72 20 28 62 |hook) ((|error (b|
|00001e50| 79 74 65 2d 63 6f 64 65 | 20 22 c0 c1 5c 6e 5c 22 |yte-code| "..\n\"|
|00001e60| 88 c3 c4 21 88 c5 87 22 | 20 5b 6d 65 73 73 61 67 |...!..."| [messag|
|00001e70| 65 20 22 76 61 6c 75 65 | 20 6f 66 20 66 69 6e 64 |e "value| of find|
|00001e80| 2d 74 61 67 2d 64 65 66 | 61 75 6c 74 2d 68 6f 6f |-tag-def|ault-hoo|
|00001e90| 6b 20 73 69 67 6e 61 6c | 6c 65 64 20 65 72 72 6f |k signal|led erro|
|00001ea0| 72 3a 20 25 73 22 20 64 | 61 74 61 20 73 69 74 2d |r: %s" d|ata sit-|
|00001eb0| 66 6f 72 20 31 20 6e 69 | 6c 5d 20 33 29 29 29 20 |for 1 ni|l] 3))) |
|00001ec0| 28 31 31 39 20 39 35 29 | 20 6c 6f 6f 6b 69 6e 67 |(119 95)| looking|
|00001ed0| 2d 61 74 20 22 5c 5c 73 | 77 5c 5c 7c 5c 5c 73 5f |-at "\\s|w\\|\\s_|
|00001ee0| 5c 5c 7c 5c 5c 27 22 20 | 31 20 22 5c 5c 73 77 5c |\\|\\'" |1 "\\sw\|
|00001ef0| 5c 7c 5c 5c 73 5f 22 20 | 72 65 2d 73 65 61 72 63 |\|\\s_" |re-searc|
|00001f00| 68 2d 62 61 63 6b 77 61 | 72 64 20 6e 69 6c 20 74 |h-backwa|rd nil t|
|00001f10| 20 72 65 67 65 78 70 2d | 71 75 6f 74 65 20 66 6f | regexp-|quote fo|
|00001f20| 72 77 61 72 64 2d 73 65 | 78 70 20 2d 31 20 22 5c |rward-se|xp -1 "\|
|00001f30| 5c 73 27 22 5d 20 34 5d | 5d 20 32 29 0a 28 66 73 |\s'"] 4]|] 2).(fs|
|00001f40| 65 74 20 27 68 61 72 67 | 73 3a 61 63 74 69 6f 6e |et 'harg|s:action|
|00001f50| 2d 67 65 74 20 23 5b 28 | 61 63 74 69 6f 6e 20 6d |-get #[(|action m|
|00001f60| 6f 64 69 66 79 69 6e 67 | 29 20 22 c0 09 21 ac 84 |odifying|) "..!..|
|00001f70| 09 3c ad 8f c2 09 21 89 | 1b ad 87 c4 c5 0b 0e 06 |.<....!.|........|
|00001f80| 5c 22 21 29 87 22 20 5b | 68 79 70 62 3a 76 31 39 |\"!)." [|hypb:v19|
|00001f90| 2d 62 79 74 65 2d 63 6f | 64 65 2d 70 20 61 63 74 |-byte-co|de-p act|
|00001fa0| 69 6f 6e 20 61 63 74 69 | 6f 6e 3a 63 6f 6d 6d 61 |ion acti|on:comma|
|00001fb0| 6e 64 70 20 69 6e 74 65 | 72 61 63 74 69 76 65 2d |ndp inte|ractive-|
|00001fc0| 66 6f 72 6d 20 61 63 74 | 69 6f 6e 3a 70 61 74 68 |form act|ion:path|
|00001fd0| 2d 61 72 67 73 2d 72 65 | 6c 20 68 61 72 67 73 3a |-args-re|l hargs:|
|00001fe0| 69 66 6f 72 6d 2d 72 65 | 61 64 20 6d 6f 64 69 66 |iform-re|ad modif|
|00001ff0| 79 69 6e 67 5d 20 35 20 | 22 5c 0a 49 6e 74 65 72 |ying] 5 |"\.Inter|
|00002000| 61 63 74 69 76 65 6c 79 | 20 67 65 74 73 20 6c 69 |actively| gets li|
|00002010| 73 74 20 6f 66 20 61 72 | 67 75 6d 65 6e 74 73 20 |st of ar|guments |
|00002020| 66 6f 72 20 41 43 54 49 | 4f 4e 27 73 20 70 61 72 |for ACTI|ON's par|
|00002030| 61 6d 65 74 65 72 73 2e | 0a 43 75 72 72 65 6e 74 |ameters.|.Current|
|00002040| 20 62 75 74 74 6f 6e 20 | 69 73 20 62 65 69 6e 67 | button |is being|
|00002050| 20 6d 6f 64 69 66 69 65 | 64 20 77 68 65 6e 20 4d | modifie|d when M|
|00002060| 4f 44 49 46 59 49 4e 47 | 20 69 73 20 6e 6f 6e 2d |ODIFYING| is non-|
|00002070| 6e 69 6c 2e 0a 52 65 74 | 75 72 6e 73 20 6e 69 6c |nil..Ret|urns nil|
|00002080| 20 69 66 20 41 43 54 49 | 4f 4e 20 69 73 20 6e 6f | if ACTI|ON is no|
|00002090| 74 20 61 20 6c 69 73 74 | 20 6f 72 20 62 79 74 65 |t a list| or byte|
|000020a0| 2d 63 6f 64 65 20 6f 62 | 6a 65 63 74 2c 20 68 61 |-code ob|ject, ha|
|000020b0| 73 20 6e 6f 20 69 6e 74 | 65 72 61 63 74 69 76 65 |s no int|eractive|
|000020c0| 0a 66 6f 72 6d 20 6f 72 | 20 74 61 6b 65 73 20 6e |.form or| takes n|
|000020d0| 6f 20 61 72 67 75 6d 65 | 6e 74 73 2e 22 5d 29 0a |o argume|nts."]).|
|000020e0| 28 66 73 65 74 20 27 68 | 61 72 67 73 3a 64 65 6c |(fset 'h|args:del|
|000020f0| 69 6d 69 74 65 64 20 23 | 5b 28 73 74 61 72 74 2d |imited #|[(start-|
|00002100| 64 65 6c 69 6d 20 65 6e | 64 2d 64 65 6c 69 6d 20 |delim en|d-delim |
|00002110| 26 6f 70 74 69 6f 6e 61 | 6c 20 73 74 61 72 74 2d |&optiona|l start-|
|00002120| 72 65 67 65 78 70 2d 66 | 6c 61 67 20 65 6e 64 2d |regexp-f|lag end-|
|00002130| 72 65 67 65 78 70 2d 66 | 6c 61 67 29 20 22 60 18 |regexp-f|lag) "`.|
|00002140| 09 ab 83 08 aa 85 08 5c | 6e 47 53 5c 5c 1b 09 ab |.......\|nGS\\...|
|00002150| 83 c4 aa 81 c5 1e 06 0e | 07 ab 83 c4 aa 81 c5 1e |........|........|
|00002160| 08 c9 1e 5c 6e c9 1e 0b | 8a cc 79 88 0e 06 5c 6e |...\n...|..y...\n|
|00002170| 0b cd 23 89 16 5c 6e ab | 93 60 08 57 ab 8e 0e 08 |..#..\n.|.`.W....|
|00002180| 0e 0e 08 cd 23 ab 85 c9 | 16 5c 6e aa 62 0e 5c 6e |....#...|.\n.b.\n|
|00002190| ad 9e c9 7f 88 60 54 13 | 08 62 88 0e 08 0e 0e 0b |.....`T.|.b......|
|000021a0| cd 23 ad 8c cc 94 89 16 | 0b ad 85 0e 5c 6e 0e 0b |.#......|....\n..|
|000021b0| 7b 2e 07 87 22 20 5b 6f | 70 6f 69 6e 74 20 73 74 |{..." [o|point st|
|000021c0| 61 72 74 2d 72 65 67 65 | 78 70 2d 66 6c 61 67 20 |art-rege|xp-flag |
|000021d0| 73 74 61 72 74 2d 64 65 | 6c 69 6d 20 6c 69 6d 69 |start-de|lim limi|
|000021e0| 74 20 72 65 2d 73 65 61 | 72 63 68 2d 66 6f 72 77 |t re-sea|rch-forw|
|000021f0| 61 72 64 20 73 65 61 72 | 63 68 2d 66 6f 72 77 61 |ard sear|ch-forwa|
|00002200| 72 64 20 73 74 61 72 74 | 2d 73 65 61 72 63 68 2d |rd start|-search-|
|00002210| 66 75 6e 63 20 65 6e 64 | 2d 72 65 67 65 78 70 2d |func end|-regexp-|
|00002220| 66 6c 61 67 20 65 6e 64 | 2d 73 65 61 72 63 68 2d |flag end|-search-|
|00002230| 66 75 6e 63 20 6e 69 6c | 20 73 74 61 72 74 20 65 |func nil| start e|
|00002240| 6e 64 20 30 20 74 20 65 | 6e 64 2d 64 65 6c 69 6d |nd 0 t e|nd-delim|
|00002250| 5d 20 34 20 22 5c 0a 52 | 65 74 75 72 6e 73 20 61 |] 4 "\.R|eturns a|
|00002260| 20 73 69 6e 67 6c 65 20 | 6c 69 6e 65 2c 20 64 65 | single |line, de|
|00002270| 6c 69 6d 69 74 65 64 20 | 61 72 67 75 6d 65 6e 74 |limited |argument|
|00002280| 20 74 68 61 74 20 70 6f | 69 6e 74 20 69 73 20 77 | that po|int is w|
|00002290| 69 74 68 69 6e 2c 20 6f | 72 20 6e 69 6c 2e 0a 53 |ithin, o|r nil..S|
|000022a0| 54 41 52 54 2d 44 45 4c | 49 4d 20 61 6e 64 20 45 |TART-DEL|IM and E|
|000022b0| 4e 44 2d 44 45 4c 49 4d | 20 61 72 65 20 73 74 72 |ND-DELIM| are str|
|000022c0| 69 6e 67 73 20 74 68 61 | 74 20 73 70 65 63 69 66 |ings tha|t specif|
|000022d0| 79 20 74 68 65 20 61 72 | 67 75 6d 65 6e 74 20 64 |y the ar|gument d|
|000022e0| 65 6c 69 6d 69 74 65 72 | 73 2e 0a 57 69 74 68 20 |elimiter|s..With |
|000022f0| 6f 70 74 69 6f 6e 61 6c | 20 53 54 41 52 54 2d 52 |optional| START-R|
|00002300| 45 47 45 58 50 2d 46 4c | 41 47 20 6e 6f 6e 2d 6e |EGEXP-FL|AG non-n|
|00002310| 69 6c 2c 20 53 54 41 52 | 54 2d 44 45 4c 49 4d 20 |il, STAR|T-DELIM |
|00002320| 69 73 20 74 72 65 61 74 | 65 64 20 61 73 20 61 20 |is treat|ed as a |
|00002330| 72 65 67 75 6c 61 72 0a | 65 78 70 72 65 73 73 69 |regular.|expressi|
|00002340| 6f 6e 2e 20 20 45 4e 44 | 2d 52 45 47 45 58 50 2d |on.  END|-REGEXP-|
|00002350| 46 4c 41 47 20 69 73 20 | 73 69 6d 69 6c 61 72 2e |FLAG is |similar.|
|00002360| 22 5d 29 0a 28 66 73 65 | 74 20 27 68 61 72 67 73 |"]).(fse|t 'hargs|
|00002370| 3a 67 65 74 20 23 5b 28 | 69 6e 74 65 72 61 63 74 |:get #[(|interact|
|00002380| 69 76 65 2d 65 6e 74 72 | 79 20 26 6f 70 74 69 6f |ive-entr|y &optio|
|00002390| 6e 61 6c 20 64 65 66 61 | 75 6c 74 20 70 72 69 6f |nal defa|ult prio|
|000023a0| 72 2d 61 72 67 29 20 22 | c0 89 89 19 1a 1b 0c ab |r-arg) "|........|
|000023b0| 85 0c c5 9a ab 85 c6 c7 | 21 aa d7 0c c8 48 c9 55 |........|!....H.U|
|000023c0| ab a9 0c ca 48 12 cb 0c | cc c0 4f 0e 0d 5c 22 11 |....H...|..O..\".|
|000023d0| 5c 6e 0e 0e 47 57 ad 84 | 0e 0e 5c 6e 48 89 13 ab |\n..GW..|..\nH...|
|000023e0| 87 0b 09 0e 0f 5c 22 aa | ad c6 d0 5c 6e 5c 22 aa |.....\".|...\n\".|
|000023f0| a7 0c c8 48 12 cb 0c ca | c0 4f 0e 0d 5c 22 11 5c |...H....|.O..\".\|
|00002400| 6e 0e 11 47 57 ad 84 0e | 11 5c 6e 48 89 13 ab 87 |n..GW...|.\nH....|
|00002410| 0b 09 0e 0f 5c 22 aa 84 | c6 d2 5c 6e 5c 22 2b 87 |....\"..|..\n\"+.|
|00002420| 22 20 5b 6e 69 6c 20 70 | 72 6f 6d 70 74 20 63 6d |" [nil p|rompt cm|
|00002430| 64 20 66 75 6e 63 20 69 | 6e 74 65 72 61 63 74 69 |d func i|nteracti|
|00002440| 76 65 2d 65 6e 74 72 79 | 20 22 22 20 65 72 72 6f |ve-entry| "" erro|
|00002450| 72 20 22 28 68 61 72 67 | 73 3a 67 65 74 29 3a 20 |r "(harg|s:get): |
|00002460| 45 6d 70 74 79 20 69 6e | 74 65 72 61 63 74 69 76 |Empty in|teractiv|
|00002470| 65 2d 65 6e 74 72 79 20 | 61 72 67 2e 22 20 30 20 |e-entry |arg." 0 |
|00002480| 34 33 20 31 20 66 6f 72 | 6d 61 74 20 32 20 70 72 |43 1 for|mat 2 pr|
|00002490| 69 6f 72 2d 61 72 67 20 | 68 61 72 67 73 3a 69 66 |ior-arg |hargs:if|
|000024a0| 6f 72 6d 2d 65 78 74 65 | 6e 73 69 6f 6e 73 2d 76 |orm-exte|nsions-v|
|000024b0| 65 63 74 6f 72 20 64 65 | 66 61 75 6c 74 20 22 28 |ector de|fault "(|
|000024c0| 68 61 72 67 73 3a 67 65 | 74 29 3a 20 42 61 64 20 |hargs:ge|t): Bad |
|000024d0| 69 6e 74 65 72 61 63 74 | 69 76 65 2d 65 6e 74 72 |interact|ive-entr|
|000024e0| 79 20 65 78 74 65 6e 73 | 69 6f 6e 20 63 68 61 72 |y extens|ion char|
|000024f0| 61 63 74 65 72 3a 20 27 | 25 63 27 2e 22 20 68 61 |acter: '|%c'." ha|
|00002500| 72 67 73 3a 69 66 6f 72 | 6d 2d 76 65 63 74 6f 72 |rgs:ifor|m-vector|
|00002510| 20 22 28 68 61 72 67 73 | 3a 67 65 74 29 3a 20 42 | "(hargs|:get): B|
|00002520| 61 64 20 69 6e 74 65 72 | 61 63 74 69 76 65 2d 65 |ad inter|active-e|
|00002530| 6e 74 72 79 20 63 6f 6d | 6d 61 6e 64 20 63 68 61 |ntry com|mand cha|
|00002540| 72 61 63 74 65 72 3a 20 | 27 25 63 27 2e 22 5d 20 |racter: |'%c'."] |
|00002550| 35 20 22 5c 0a 50 72 6f | 6d 70 74 73 20 66 6f 72 |5 "\.Pro|mpts for|
|00002560| 20 61 6e 20 61 72 67 75 | 6d 65 6e 74 2c 20 69 66 | an argu|ment, if|
|00002570| 20 6e 65 65 64 20 62 65 | 2c 20 66 72 6f 6d 20 49 | need be|, from I|
|00002580| 4e 54 45 52 41 43 54 49 | 56 45 2d 45 4e 54 52 59 |NTERACTI|VE-ENTRY|
|00002590| 2c 20 61 20 73 74 72 69 | 6e 67 2e 0a 4f 70 74 69 |, a stri|ng..Opti|
|000025a0| 6f 6e 61 6c 20 44 45 46 | 41 55 4c 54 20 69 73 20 |onal DEF|AULT is |
|000025b0| 69 6e 73 65 72 74 65 64 | 20 61 66 74 65 72 20 70 |inserted| after p|
|000025c0| 72 6f 6d 70 74 2e 0a 46 | 69 72 73 74 20 63 68 61 |rompt..F|irst cha|
|000025d0| 72 61 63 74 65 72 20 6f | 66 20 49 4e 54 45 52 41 |racter o|f INTERA|
|000025e0| 43 54 49 56 45 2d 45 4e | 54 52 59 20 6d 75 73 74 |CTIVE-EN|TRY must|
|000025f0| 20 62 65 20 61 20 63 6f | 6d 6d 61 6e 64 20 63 68 | be a co|mmand ch|
|00002600| 61 72 61 63 74 65 72 20 | 66 72 6f 6d 0a 74 68 65 |aracter |from.the|
|00002610| 20 6c 69 73 74 20 69 6e | 20 74 68 65 20 64 6f 63 | list in| the doc|
|00002620| 75 6d 65 6e 74 61 74 69 | 6f 6e 20 66 6f 72 20 27 |umentati|on for '|
|00002630| 69 6e 74 65 72 61 63 74 | 69 76 65 27 20 6f 72 20 |interact|ive' or |
|00002640| 61 20 60 2b 27 20 77 68 | 69 63 68 20 69 6e 64 69 |a `+' wh|ich indi|
|00002650| 63 61 74 65 73 20 74 68 | 61 74 0a 74 68 65 20 66 |cates th|at.the f|
|00002660| 6f 6c 6c 6f 77 69 6e 67 | 20 63 68 61 72 61 63 74 |ollowing| charact|
|00002670| 65 72 20 69 73 20 61 20 | 48 79 70 65 72 62 6f 6c |er is a |Hyperbol|
|00002680| 65 20 69 6e 74 65 72 61 | 63 74 69 76 65 20 65 78 |e intera|ctive ex|
|00002690| 74 65 6e 73 69 6f 6e 20 | 63 6f 6d 6d 61 6e 64 0a |tension |command.|
|000026a0| 63 68 61 72 61 63 74 65 | 72 2e 0a 0a 4d 61 79 20 |characte|r...May |
|000026b0| 72 65 74 75 72 6e 20 61 | 20 73 69 6e 67 6c 65 20 |return a| single |
|000026c0| 76 61 6c 75 65 20 6f 72 | 20 61 20 6c 69 73 74 20 |value or| a list |
|000026d0| 6f 66 20 76 61 6c 75 65 | 73 2c 20 69 6e 20 77 68 |of value|s, in wh|
|000026e0| 69 63 68 20 63 61 73 65 | 20 74 68 65 20 66 69 72 |ich case| the fir|
|000026f0| 73 74 0a 65 6c 65 6d 65 | 6e 74 20 6f 66 20 74 68 |st.eleme|nt of th|
|00002700| 65 20 6c 69 73 74 20 69 | 73 20 61 6c 77 61 79 73 |e list i|s always|
|00002710| 20 74 68 65 20 73 79 6d | 62 6f 6c 20 27 61 72 67 | the sym|bol 'arg|
|00002720| 73 2e 22 5d 29 0a 28 66 | 73 65 74 20 27 68 61 72 |s."]).(f|set 'har|
|00002730| 67 73 3a 6d 61 6b 65 2d | 69 66 6f 72 6d 2d 76 65 |gs:make-|iform-ve|
|00002740| 63 74 6f 72 20 23 5b 28 | 69 66 6f 72 6d 2d 61 6c |ctor #[(|iform-al|
|00002750| 69 73 74 29 20 22 c0 c1 | c2 0b 5c 22 c4 5c 22 40 |ist) "..|..\".\"@|
|00002760| 54 1d c6 0d c7 5c 22 1e | 08 c1 c9 0b 5c 22 88 0e |T....\".|....\"..|
|00002770| 08 2a 87 22 20 5b 73 6f | 72 74 20 6d 61 70 63 61 |.*." [so|rt mapca|
|00002780| 72 20 63 61 72 20 69 66 | 6f 72 6d 2d 61 6c 69 73 |r car if|orm-alis|
|00002790| 74 20 3e 20 73 69 7a 65 | 20 6d 61 6b 65 2d 76 65 |t > size| make-ve|
|000027a0| 63 74 6f 72 20 6e 69 6c | 20 76 65 63 20 23 5b 28 |ctor nil| vec #[(|
|000027b0| 65 6c 74 29 20 22 08 09 | 40 c2 c3 c4 c5 c6 09 41 |elt) "..|@......A|
|000027c0| 40 44 45 09 41 41 46 49 | 87 22 20 5b 76 65 63 20 |@DE.AAFI|." [vec |
|000027d0| 65 6c 74 20 6c 61 6d 62 | 64 61 20 28 70 72 6f 6d |elt lamb|da (prom|
|000027e0| 70 74 20 64 65 66 61 75 | 6c 74 29 20 73 65 74 71 |pt defau|lt) setq|
|000027f0| 20 68 61 72 67 73 3a 72 | 65 61 64 69 6e 67 2d 70 | hargs:r|eading-p|
|00002800| 20 71 75 6f 74 65 5d 20 | 38 5d 5d 20 34 20 22 5c | quote] |8]] 4 "\|
|00002810| 0a 52 65 74 75 72 6e 20 | 61 20 76 65 63 74 6f 72 |.Return |a vector|
|00002820| 20 62 75 69 6c 74 20 66 | 72 6f 6d 20 49 46 4f 52 | built f|rom IFOR|
|00002830| 4d 2d 41 4c 49 53 54 20 | 75 73 65 64 20 66 6f 72 |M-ALIST |used for|
|00002840| 20 6c 6f 6f 6b 69 6e 67 | 20 75 70 20 69 6e 74 65 | looking| up inte|
|00002850| 72 61 63 74 69 76 65 20 | 63 6f 6d 6d 61 6e 64 20 |ractive |command |
|00002860| 63 6f 64 65 20 63 68 61 | 72 61 63 74 65 72 73 2e |code cha|racters.|
|00002870| 22 5d 29 0a 28 66 73 65 | 74 20 27 68 61 72 67 73 |"]).(fse|t 'hargs|
|00002880| 3a 70 72 6f 6d 70 74 20 | 23 5b 28 70 72 6f 6d 70 |:prompt |#[(promp|
|00002890| 74 20 64 65 66 61 75 6c | 74 20 26 6f 70 74 69 6f |t defaul|t &optio|
|000028a0| 6e 61 6c 20 64 65 66 61 | 75 6c 74 2d 70 72 6f 6d |nal defa|ult-prom|
|000028b0| 70 74 29 20 22 08 ab 93 | c1 c2 0b 0c ae 81 c5 08 |pt) "...|........|
|000028c0| c6 9a ab 83 c6 aa 81 c7 | 08 25 87 0b 87 22 20 5b |........|.%..." [|
|000028d0| 64 65 66 61 75 6c 74 20 | 66 6f 72 6d 61 74 20 22 |default |format "|
|000028e0| 25 73 28 25 73 25 73 25 | 73 29 20 22 20 70 72 6f |%s(%s%s%|s) " pro|
|000028f0| 6d 70 74 20 64 65 66 61 | 75 6c 74 2d 70 72 6f 6d |mpt defa|ult-prom|
|00002900| 70 74 20 22 64 65 66 61 | 75 6c 74 22 20 22 22 20 |pt "defa|ult" "" |
|00002910| 22 20 22 5d 20 36 20 22 | 5c 0a 52 65 74 75 72 6e |" "] 6 "|\.Return|
|00002920| 73 20 73 74 72 69 6e 67 | 20 6f 66 20 50 52 4f 4d |s string| of PROM|
|00002930| 50 54 20 69 6e 63 6c 75 | 64 69 6e 67 20 44 45 46 |PT inclu|ding DEF|
|00002940| 41 55 4c 54 2e 0a 4f 70 | 74 69 6f 6e 61 6c 20 44 |AULT..Op|tional D|
|00002950| 45 46 41 55 4c 54 2d 50 | 52 4f 4d 50 54 20 69 73 |EFAULT-P|ROMPT is|
|00002960| 20 75 73 65 64 20 74 6f | 20 64 65 73 63 72 69 62 | used to| describ|
|00002970| 65 20 64 65 66 61 75 6c | 74 20 76 61 6c 75 65 2e |e defaul|t value.|
|00002980| 22 5d 29 0a 28 66 73 65 | 74 20 27 68 61 72 67 73 |"]).(fse|t 'hargs|
|00002990| 3a 73 65 6c 65 63 74 2d | 65 76 65 6e 74 2d 77 69 |:select-|event-wi|
|000029a0| 6e 64 6f 77 20 23 5b 6e | 69 6c 20 22 08 ab 8d 09 |ndow #[n|il "....|
|000029b0| ad af c2 c3 09 21 ae 82 | c4 20 21 87 0d 1e 06 c7 |.....!..|. !.....|
|000029c0| c8 0e 06 21 21 89 1e 09 | ca 20 3d ab 8b cb ca 20 |...!!...|. =.... |
|000029d0| 21 ac 85 cc cd 21 aa 88 | c2 0e 09 ae 82 c4 20 21 |!....!..|...... !|
|000029e0| 2a 87 22 20 5b 68 79 70 | 65 72 62 3a 6c 65 6d 61 |*." [hyp|erb:lema|
|000029f0| 63 73 2d 70 20 63 75 72 | 72 65 6e 74 2d 6d 6f 75 |cs-p cur|rent-mou|
|00002a00| 73 65 2d 65 76 65 6e 74 | 20 73 65 6c 65 63 74 2d |se-event| select-|
|00002a10| 77 69 6e 64 6f 77 20 65 | 76 65 6e 74 2d 77 69 6e |window e|vent-win|
|00002a20| 64 6f 77 20 73 65 6c 65 | 63 74 65 64 2d 77 69 6e |dow sele|cted-win|
|00002a30| 64 6f 77 20 6c 61 73 74 | 2d 63 6f 6d 6d 61 6e 64 |dow last|-command|
|00002a40| 2d 65 76 65 6e 74 20 65 | 76 65 6e 74 20 70 6f 73 |-event e|vent pos|
|00002a50| 6e 2d 77 69 6e 64 6f 77 | 20 65 76 65 6e 74 2d 73 |n-window| event-s|
|00002a60| 74 61 72 74 20 77 69 6e | 64 6f 77 20 6d 69 6e 69 |tart win|dow mini|
|00002a70| 62 75 66 66 65 72 2d 77 | 69 6e 64 6f 77 20 6d 69 |buffer-w|indow mi|
|00002a80| 6e 69 62 75 66 66 65 72 | 2d 77 69 6e 64 6f 77 2d |nibuffer|-window-|
|00002a90| 61 63 74 69 76 65 2d 70 | 20 65 72 72 6f 72 20 22 |active-p| error "|
|00002aa0| 41 74 74 65 6d 70 74 20 | 74 6f 20 73 65 6c 65 63 |Attempt |to selec|
|00002ab0| 74 20 69 6e 61 63 74 69 | 76 65 20 6d 69 6e 69 62 |t inacti|ve minib|
|00002ac0| 75 66 66 65 72 20 77 69 | 6e 64 6f 77 22 5d 20 34 |uffer wi|ndow"] 4|
|00002ad0| 20 22 5c 0a 53 65 6c 65 | 63 74 20 77 69 6e 64 6f | "\.Sele|ct windo|
|00002ae0| 77 2c 20 69 66 20 61 6e | 79 2c 20 74 68 61 74 20 |w, if an|y, that |
|00002af0| 6d 6f 75 73 65 20 77 61 | 73 20 6f 76 65 72 20 64 |mouse wa|s over d|
|00002b00| 75 72 69 6e 67 20 6c 61 | 73 74 20 65 76 65 6e 74 |uring la|st event|
|00002b10| 2e 22 5d 29 0a 28 66 73 | 65 74 20 27 68 61 72 67 |."]).(fs|et 'harg|
|00002b20| 73 3a 73 65 78 70 72 65 | 73 73 69 6f 6e 2d 70 20 |s:sexpre|ssion-p |
|00002b30| 23 5b 28 26 6f 70 74 69 | 6f 6e 61 6c 20 6e 6f 2d |#[(&opti|onal no-|
|00002b40| 72 65 63 75 72 73 65 29 | 20 22 8a c0 c1 c2 8f 29 |recurse)| ".....)|
|00002b50| 87 22 20 5b 6e 69 6c 20 | 28 62 79 74 65 2d 63 6f |." [nil |(byte-co|
|00002b60| 64 65 20 22 c0 19 68 7a | c2 55 ab 8e c3 09 21 ab |de "..hz|.U....!.|
|00002b70| 89 60 c4 c5 21 88 60 7b | aa a3 67 7a c6 55 ab 8d |.`..!.`{|..gz.U..|
|00002b80| c3 09 21 ab 88 60 c4 20 | 88 60 7b aa 90 0e 07 ab |..!..`. |.`{.....|
|00002b90| 83 c8 aa 89 8a c9 ca 21 | 88 cb cc 21 29 29 87 22 |.......!|...!))."|
|00002ba0| 20 5b 28 6e 6f 74 20 28 | 61 6e 64 20 28 3d 20 28 | [(not (|and (= (|
|00002bb0| 63 68 61 72 2d 73 79 6e | 74 61 78 20 28 63 68 61 |char-syn|tax (cha|
|00002bc0| 72 2d 61 66 74 65 72 20 | 28 2d 20 28 70 6f 69 6e |r-after |(- (poin|
|00002bd0| 74 29 20 32 29 29 29 20 | 39 32 29 20 28 2f 3d 20 |t) 2))) |92) (/= |
|00002be0| 28 63 68 61 72 2d 73 79 | 6e 74 61 78 20 28 63 68 |(char-sy|ntax (ch|
|00002bf0| 61 72 2d 61 66 74 65 72 | 20 28 2d 20 28 70 6f 69 |ar-after| (- (poi|
|00002c00| 6e 74 29 20 33 29 29 29 | 20 39 32 29 29 29 20 6e |nt) 3)))| 92))) n|
|00002c10| 6f 74 2d 71 75 6f 74 65 | 64 20 34 31 20 65 76 61 |ot-quote|d 41 eva|
|00002c20| 6c 20 66 6f 72 77 61 72 | 64 2d 73 65 78 70 20 2d |l forwar|d-sexp -|
|00002c30| 31 20 34 30 20 6e 6f 2d | 72 65 63 75 72 73 65 20 |1 40 no-|recurse |
|00002c40| 6e 69 6c 20 75 70 2d 6c | 69 73 74 20 31 20 68 61 |nil up-l|ist 1 ha|
|00002c50| 72 67 73 3a 73 65 78 70 | 72 65 73 73 69 6f 6e 2d |rgs:sexp|ression-|
|00002c60| 70 20 74 5d 20 33 29 20 | 28 28 65 72 72 6f 72 29 |p t] 3) |((error)|
|00002c70| 29 5d 20 33 20 22 5c 0a | 52 65 74 75 72 6e 73 20 |)] 3 "\.|Returns |
|00002c80| 61 6e 20 73 65 78 70 72 | 65 73 73 69 6f 6e 20 61 |an sexpr|ession a|
|00002c90| 74 20 70 6f 69 6e 74 20 | 61 73 20 61 20 73 74 72 |t point |as a str|
|00002ca0| 69 6e 67 2e 0a 49 66 20 | 70 6f 69 6e 74 20 66 6f |ing..If |point fo|
|00002cb0| 6c 6c 6f 77 73 20 61 6e | 20 73 65 78 70 72 65 73 |llows an| sexpres|
|00002cc0| 73 69 6f 6e 20 65 6e 64 | 20 63 68 61 72 61 63 74 |sion end| charact|
|00002cd0| 65 72 2c 20 74 68 65 20 | 70 72 65 63 65 64 69 6e |er, the |precedin|
|00002ce0| 67 20 73 65 78 70 72 65 | 73 73 69 6f 6e 0a 69 73 |g sexpre|ssion.is|
|00002cf0| 20 72 65 74 75 72 6e 65 | 64 2e 20 20 49 66 20 70 | returne|d.  If p|
|00002d00| 6f 69 6e 74 20 70 72 65 | 63 65 64 65 73 20 61 6e |oint pre|cedes an|
|00002d10| 20 73 65 78 70 72 65 73 | 73 69 6f 6e 20 73 74 61 | sexpres|sion sta|
|00002d20| 72 74 20 63 68 61 72 61 | 63 74 65 72 2c 20 74 68 |rt chara|cter, th|
|00002d30| 65 0a 66 6f 6c 6c 6f 77 | 69 6e 67 20 73 65 78 70 |e.follow|ing sexp|
|00002d40| 72 65 73 73 69 6f 6e 20 | 69 73 20 72 65 74 75 72 |ression |is retur|
|00002d50| 6e 65 64 2e 20 20 4f 74 | 68 65 72 77 69 73 65 2c |ned.  Ot|herwise,|
|00002d60| 20 74 68 65 20 69 6e 6e | 65 72 6d 6f 73 74 20 73 | the inn|ermost s|
|00002d70| 65 78 70 72 65 73 73 69 | 6f 6e 0a 74 68 61 74 20 |expressi|on.that |
|00002d80| 70 6f 69 6e 74 20 69 73 | 20 77 69 74 68 69 6e 20 |point is| within |
|00002d90| 69 73 20 72 65 74 75 72 | 6e 65 64 20 6f 72 20 6e |is retur|ned or n|
|00002da0| 69 6c 20 69 66 20 6e 6f | 6e 65 2e 22 5d 29 0a 28 |il if no|ne."]).(|
|00002db0| 64 65 66 76 61 72 20 68 | 61 72 67 73 3a 69 66 6f |defvar h|args:ifo|
|00002dc0| 72 6d 73 20 6e 69 6c 20 | 22 5c 0a 41 6c 69 73 74 |rms nil |"\.Alist|
|00002dd0| 20 6f 66 20 28 69 6e 74 | 65 72 61 63 74 69 76 65 | of (int|eractive|
|00002de0| 2d 63 6d 64 2d 63 68 72 | 20 2e 20 28 61 72 67 75 |-cmd-chr| . (argu|
|00002df0| 6d 65 6e 74 2d 74 79 70 | 65 20 2e 20 67 65 74 2d |ment-typ|e . get-|
|00002e00| 61 72 67 75 6d 65 6e 74 | 2d 66 6f 72 6d 29 29 20 |argument|-form)) |
|00002e10| 65 6c 74 73 2e 22 29 0a | 28 62 79 74 65 2d 63 6f |elts.").|(byte-co|
|00002e20| 64 65 20 22 c0 11 c2 87 | 22 20 5b 28 28 39 37 20 |de "....|" [((97 |
|00002e30| 73 79 6d 62 6f 6c 20 69 | 6e 74 65 72 6e 20 28 63 |symbol i|ntern (c|
|00002e40| 6f 6d 70 6c 65 74 69 6e | 67 2d 72 65 61 64 20 70 |ompletin|g-read p|
|00002e50| 72 6f 6d 70 74 20 6f 62 | 61 72 72 61 79 20 27 66 |rompt ob|array 'f|
|00002e60| 62 6f 75 6e 64 70 20 74 | 20 64 65 66 61 75 6c 74 |boundp t| default|
|00002e70| 29 29 20 28 39 38 20 62 | 75 66 66 65 72 20 70 72 |)) (98 b|uffer pr|
|00002e80| 6f 67 6e 20 28 6f 72 20 | 64 65 66 61 75 6c 74 20 |ogn (or |default |
|00002e90| 28 73 65 74 71 20 64 65 | 66 61 75 6c 74 20 28 6f |(setq de|fault (o|
|00002ea0| 74 68 65 72 2d 62 75 66 | 66 65 72 20 28 63 75 72 |ther-buf|fer (cur|
|00002eb0| 72 65 6e 74 2d 62 75 66 | 66 65 72 29 29 29 29 20 |rent-buf|fer)))) |
|00002ec0| 28 72 65 61 64 2d 62 75 | 66 66 65 72 20 70 72 6f |(read-bu|ffer pro|
|00002ed0| 6d 70 74 20 64 65 66 61 | 75 6c 74 20 74 29 29 20 |mpt defa|ult t)) |
|00002ee0| 28 36 36 20 62 75 66 66 | 65 72 20 70 72 6f 67 6e |(66 buff|er progn|
|00002ef0| 20 28 6f 72 20 64 65 66 | 61 75 6c 74 20 28 73 65 | (or def|ault (se|
|00002f00| 74 71 20 64 65 66 61 75 | 6c 74 20 28 6f 74 68 65 |tq defau|lt (othe|
|00002f10| 72 2d 62 75 66 66 65 72 | 20 28 63 75 72 72 65 6e |r-buffer| (curren|
|00002f20| 74 2d 62 75 66 66 65 72 | 29 29 29 29 20 28 72 65 |t-buffer|)))) (re|
|00002f30| 61 64 2d 62 75 66 66 65 | 72 20 70 72 6f 6d 70 74 |ad-buffe|r prompt|
|00002f40| 20 64 65 66 61 75 6c 74 | 20 6e 69 6c 29 29 20 28 | default| nil)) (|
|00002f50| 39 39 20 63 68 61 72 61 | 63 74 65 72 20 70 72 6f |99 chara|cter pro|
|00002f60| 67 6e 20 28 6d 65 73 73 | 61 67 65 20 28 69 66 20 |gn (mess|age (if |
|00002f70| 64 65 66 61 75 6c 74 20 | 28 68 61 72 67 73 3a 70 |default |(hargs:p|
|00002f80| 72 6f 6d 70 74 20 70 72 | 6f 6d 70 74 20 28 69 66 |rompt pr|ompt (if|
|00002f90| 20 28 69 6e 74 65 67 65 | 72 70 20 64 65 66 61 75 | (intege|rp defau|
|00002fa0| 6c 74 29 20 28 63 68 61 | 72 2d 74 6f 2d 73 74 72 |lt) (cha|r-to-str|
|00002fb0| 69 6e 67 20 64 65 66 61 | 75 6c 74 29 20 64 65 66 |ing defa|ult) def|
|00002fc0| 61 75 6c 74 29 20 22 43 | 75 72 72 3a 22 29 20 70 |ault) "C|urr:") p|
|00002fd0| 72 6f 6d 70 74 29 29 20 | 28 63 68 61 72 2d 74 6f |rompt)) |(char-to|
|00002fe0| 2d 73 74 72 69 6e 67 20 | 28 72 65 61 64 2d 63 68 |-string |(read-ch|
|00002ff0| 61 72 29 29 29 20 28 36 | 37 20 73 79 6d 62 6f 6c |ar))) (6|7 symbol|
|00003000| 20 69 6e 74 65 72 6e 20 | 28 63 6f 6d 70 6c 65 74 | intern |(complet|
|00003010| 69 6e 67 2d 72 65 61 64 | 20 70 72 6f 6d 70 74 20 |ing-read| prompt |
|00003020| 6f 62 61 72 72 61 79 20 | 27 63 6f 6d 6d 61 6e 64 |obarray |'command|
|00003030| 70 20 74 20 64 65 66 61 | 75 6c 74 29 29 20 28 31 |p t defa|ult)) (1|
|00003040| 30 30 20 69 6e 74 65 67 | 65 72 20 70 6f 69 6e 74 |00 integ|er point|
|00003050| 29 20 28 36 38 20 64 69 | 72 65 63 74 6f 72 79 20 |) (68 di|rectory |
|00003060| 70 72 6f 67 6e 20 28 6f | 72 20 64 65 66 61 75 6c |progn (o|r defaul|
|00003070| 74 20 28 73 65 74 71 20 | 64 65 66 61 75 6c 74 20 |t (setq |default |
|00003080| 64 65 66 61 75 6c 74 2d | 64 69 72 65 63 74 6f 72 |default-|director|
|00003090| 79 29 29 20 28 72 65 61 | 64 2d 66 69 6c 65 2d 6e |y)) (rea|d-file-n|
|000030a0| 61 6d 65 20 70 72 6f 6d | 70 74 20 64 65 66 61 75 |ame prom|pt defau|
|000030b0| 6c 74 20 64 65 66 61 75 | 6c 74 20 27 65 78 69 73 |lt defau|lt 'exis|
|000030c0| 74 69 6e 67 29 29 20 28 | 31 30 32 20 66 69 6c 65 |ting)) (|102 file|
|000030d0| 20 72 65 61 64 2d 66 69 | 6c 65 2d 6e 61 6d 65 20 | read-fi|le-name |
|000030e0| 70 72 6f 6d 70 74 20 64 | 65 66 61 75 6c 74 20 64 |prompt d|efault d|
|000030f0| 65 66 61 75 6c 74 20 28 | 69 66 20 28 65 71 20 73 |efault (|if (eq s|
|00003100| 79 73 74 65 6d 2d 74 79 | 70 65 20 27 76 61 78 2d |ystem-ty|pe 'vax-|
|00003110| 76 6d 73 29 20 6e 69 6c | 20 27 65 78 69 73 74 69 |vms) nil| 'existi|
|00003120| 6e 67 29 29 20 28 37 30 | 20 66 69 6c 65 20 72 65 |ng)) (70| file re|
|00003130| 61 64 2d 66 69 6c 65 2d | 6e 61 6d 65 20 70 72 6f |ad-file-|name pro|
|00003140| 6d 70 74 20 64 65 66 61 | 75 6c 74 20 64 65 66 61 |mpt defa|ult defa|
|00003150| 75 6c 74 20 6e 69 6c 29 | 20 28 31 30 37 20 6b 65 |ult nil)| (107 ke|
|00003160| 79 20 6b 65 79 2d 64 65 | 73 63 72 69 70 74 69 6f |y key-de|scriptio|
|00003170| 6e 20 28 72 65 61 64 2d | 6b 65 79 2d 73 65 71 75 |n (read-|key-sequ|
|00003180| 65 6e 63 65 20 28 69 66 | 20 64 65 66 61 75 6c 74 |ence (if| default|
|00003190| 20 28 68 61 72 67 73 3a | 70 72 6f 6d 70 74 20 70 | (hargs:|prompt p|
|000031a0| 72 6f 6d 70 74 20 64 65 | 66 61 75 6c 74 20 22 43 |rompt de|fault "C|
|000031b0| 75 72 72 3a 22 29 20 70 | 72 6f 6d 70 74 29 29 29 |urr:") p|rompt)))|
|000031c0| 20 28 37 35 20 6b 65 79 | 20 6b 65 79 2d 64 65 73 | (75 key| key-des|
|000031d0| 63 72 69 70 74 69 6f 6e | 20 28 72 65 61 64 2d 6b |cription| (read-k|
|000031e0| 65 79 2d 73 65 71 75 65 | 6e 63 65 20 28 69 66 20 |ey-seque|nce (if |
|000031f0| 64 65 66 61 75 6c 74 20 | 28 68 61 72 67 73 3a 70 |default |(hargs:p|
|00003200| 72 6f 6d 70 74 20 70 72 | 6f 6d 70 74 20 64 65 66 |rompt pr|ompt def|
|00003210| 61 75 6c 74 20 22 43 75 | 72 72 3a 22 29 20 70 72 |ault "Cu|rr:") pr|
|00003220| 6f 6d 70 74 29 20 6e 69 | 6c 20 74 29 29 20 28 31 |ompt) ni|l t)) (1|
|00003230| 30 39 20 69 6e 74 65 67 | 65 72 20 6d 61 72 6b 65 |09 integ|er marke|
|00003240| 72 2d 70 6f 73 69 74 69 | 6f 6e 20 28 68 79 70 62 |r-positi|on (hypb|
|00003250| 3a 6d 61 72 6b 2d 6d 61 | 72 6b 65 72 20 74 29 29 |:mark-ma|rker t))|
|00003260| 20 28 37 38 20 69 6e 74 | 65 67 65 72 20 69 66 20 | (78 int|eger if |
|00003270| 70 72 65 66 69 78 2d 61 | 72 67 20 28 70 72 65 66 |prefix-a|rg (pref|
|00003280| 69 78 2d 6e 75 6d 65 72 | 69 63 2d 76 61 6c 75 65 |ix-numer|ic-value|
|00003290| 20 70 72 65 66 69 78 2d | 61 72 67 29 20 28 6c 65 | prefix-|arg) (le|
|000032a0| 74 20 28 28 61 72 67 29 | 29 20 28 77 68 69 6c 65 |t ((arg)|) (while|
|000032b0| 20 28 6e 6f 74 20 28 69 | 6e 74 65 67 65 72 70 20 | (not (i|ntegerp |
|000032c0| 28 73 65 74 71 20 61 72 | 67 20 28 72 65 61 64 2d |(setq ar|g (read-|
|000032d0| 6d 69 6e 69 62 75 66 66 | 65 72 20 70 72 6f 6d 70 |minibuff|er promp|
|000032e0| 74 20 64 65 66 61 75 6c | 74 29 29 29 29 20 28 62 |t defaul|t)))) (b|
|000032f0| 65 65 70 29 29 20 61 72 | 67 29 29 20 28 31 31 30 |eep)) ar|g)) (110|
|00003300| 20 69 6e 74 65 67 65 72 | 20 6c 65 74 20 28 28 61 | integer| let ((a|
|00003310| 72 67 29 29 20 28 77 68 | 69 6c 65 20 28 6e 6f 74 |rg)) (wh|ile (not|
|00003320| 20 28 69 6e 74 65 67 65 | 72 70 20 28 73 65 74 71 | (intege|rp (setq|
|00003330| 20 61 72 67 20 28 72 65 | 61 64 2d 6d 69 6e 69 62 | arg (re|ad-minib|
|00003340| 75 66 66 65 72 20 70 72 | 6f 6d 70 74 20 64 65 66 |uffer pr|ompt def|
|00003350| 61 75 6c 74 29 29 29 29 | 20 28 62 65 65 70 29 29 |ault))))| (beep))|
|00003360| 20 61 72 67 29 20 28 31 | 31 32 20 70 72 65 66 69 | arg) (1|12 prefi|
|00003370| 78 2d 61 72 67 20 70 72 | 65 66 69 78 2d 6e 75 6d |x-arg pr|efix-num|
|00003380| 65 72 69 63 2d 76 61 6c | 75 65 20 70 72 65 66 69 |eric-val|ue prefi|
|00003390| 78 2d 61 72 67 29 20 28 | 38 30 20 70 72 65 66 69 |x-arg) (|80 prefi|
|000033a0| 78 2d 61 72 67 20 2e 20 | 70 72 65 66 69 78 2d 61 |x-arg . |prefix-a|
|000033b0| 72 67 29 20 28 31 31 34 | 20 72 65 67 69 6f 6e 20 |rg) (114| region |
|000033c0| 69 66 20 28 6d 61 72 6b | 65 72 2d 70 6f 73 69 74 |if (mark|er-posit|
|000033d0| 69 6f 6e 20 28 68 79 70 | 62 3a 6d 61 72 6b 2d 6d |ion (hyp|b:mark-m|
|000033e0| 61 72 6b 65 72 20 74 29 | 29 20 28 6c 69 73 74 20 |arker t)|) (list |
|000033f0| 27 61 72 67 73 20 28 6d | 69 6e 20 28 70 6f 69 6e |'args (m|in (poin|
|00003400| 74 29 20 28 68 79 70 62 | 3a 6d 61 72 6b 20 74 29 |t) (hypb|:mark t)|
|00003410| 29 20 28 6d 61 78 20 28 | 70 6f 69 6e 74 29 20 28 |) (max (|point) (|
|00003420| 68 79 70 62 3a 6d 61 72 | 6b 20 74 29 29 29 20 28 |hypb:mar|k t))) (|
|00003430| 6c 69 73 74 20 27 61 72 | 67 73 20 6e 69 6c 20 6e |list 'ar|gs nil n|
|00003440| 69 6c 29 29 20 28 31 31 | 35 20 73 74 72 69 6e 67 |il)) (11|5 string|
|00003450| 20 72 65 61 64 2d 73 74 | 72 69 6e 67 20 70 72 6f | read-st|ring pro|
|00003460| 6d 70 74 20 64 65 66 61 | 75 6c 74 29 20 28 38 33 |mpt defa|ult) (83|
|00003470| 20 73 79 6d 62 6f 6c 20 | 72 65 61 64 2d 66 72 6f | symbol |read-fro|
|00003480| 6d 2d 6d 69 6e 69 62 75 | 66 66 65 72 20 70 72 6f |m-minibu|ffer pro|
|00003490| 6d 70 74 20 64 65 66 61 | 75 6c 74 20 6d 69 6e 69 |mpt defa|ult mini|
|000034a0| 62 75 66 66 65 72 2d 6c | 6f 63 61 6c 2d 6e 73 2d |buffer-l|ocal-ns-|
|000034b0| 6d 61 70 20 27 73 79 6d | 29 20 28 31 31 38 20 73 |map 'sym|) (118 s|
|000034c0| 79 6d 62 6f 6c 20 72 65 | 61 64 2d 76 61 72 69 61 |ymbol re|ad-varia|
|000034d0| 62 6c 65 20 28 69 66 20 | 64 65 66 61 75 6c 74 20 |ble (if |default |
|000034e0| 28 68 61 72 67 73 3a 70 | 72 6f 6d 70 74 20 70 72 |(hargs:p|rompt pr|
|000034f0| 6f 6d 70 74 20 64 65 66 | 61 75 6c 74 20 22 43 75 |ompt def|ault "Cu|
|00003500| 72 72 3a 22 29 20 70 72 | 6f 6d 70 74 29 29 20 28 |rr:") pr|ompt)) (|
|00003510| 31 32 30 20 73 65 78 70 | 72 65 73 73 69 6f 6e 20 |120 sexp|ression |
|00003520| 72 65 61 64 2d 6d 69 6e | 69 62 75 66 66 65 72 20 |read-min|ibuffer |
|00003530| 70 72 6f 6d 70 74 20 64 | 65 66 61 75 6c 74 29 20 |prompt d|efault) |
|00003540| 28 38 38 20 73 65 78 70 | 72 65 73 73 69 6f 6e 20 |(88 sexp|ression |
|00003550| 65 76 61 6c 2d 6d 69 6e | 69 62 75 66 66 65 72 20 |eval-min|ibuffer |
|00003560| 70 72 6f 6d 70 74 20 64 | 65 66 61 75 6c 74 29 29 |prompt d|efault))|
|00003570| 20 68 61 72 67 73 3a 69 | 66 6f 72 6d 73 20 6e 69 | hargs:i|forms ni|
|00003580| 6c 5d 20 31 29 0a 28 64 | 65 66 76 61 72 20 68 61 |l] 1).(d|efvar ha|
|00003590| 72 67 73 3a 69 66 6f 72 | 6d 2d 76 65 63 74 6f 72 |rgs:ifor|m-vector|
|000035a0| 20 6e 69 6c 20 22 5c 0a | 56 65 63 74 6f 72 20 6f | nil "\.|Vector o|
|000035b0| 66 20 66 6f 72 6d 73 20 | 66 6f 72 20 65 61 63 68 |f forms |for each|
|000035c0| 20 69 6e 74 65 72 61 63 | 74 69 76 65 20 63 6f 6d | interac|tive com|
|000035d0| 6d 61 6e 64 20 63 68 61 | 72 61 63 74 65 72 20 63 |mand cha|racter c|
|000035e0| 6f 64 65 2e 22 29 0a 28 | 62 79 74 65 2d 63 6f 64 |ode.").(|byte-cod|
|000035f0| 65 20 22 c0 09 21 12 c0 | 87 22 20 5b 68 61 72 67 |e "..!..|." [harg|
|00003600| 73 3a 6d 61 6b 65 2d 69 | 66 6f 72 6d 2d 76 65 63 |s:make-i|form-vec|
|00003610| 74 6f 72 20 68 61 72 67 | 73 3a 69 66 6f 72 6d 73 |tor harg|s:iforms|
|00003620| 20 68 61 72 67 73 3a 69 | 66 6f 72 6d 2d 76 65 63 | hargs:i|form-vec|
|00003630| 74 6f 72 5d 20 32 29 0a | 28 64 65 66 76 61 72 20 |tor] 2).|(defvar |
|00003640| 68 61 72 67 73 3a 69 66 | 6f 72 6d 73 2d 65 78 74 |hargs:if|orms-ext|
|00003650| 65 6e 73 69 6f 6e 73 20 | 6e 69 6c 20 22 5c 0a 48 |ensions |nil "\.H|
|00003660| 79 70 65 72 62 6f 6c 65 | 20 65 78 74 65 6e 73 69 |yperbole| extensi|
|00003670| 6f 6e 20 61 6c 69 73 74 | 20 6f 66 20 28 69 6e 74 |on alist| of (int|
|00003680| 65 72 61 63 74 69 76 65 | 2d 63 6d 64 2d 63 68 72 |eractive|-cmd-chr|
|00003690| 20 2e 20 28 61 72 67 75 | 6d 65 6e 74 2d 74 79 70 | . (argu|ment-typ|
|000036a0| 65 20 2e 20 67 65 74 2d | 61 72 67 75 6d 65 6e 74 |e . get-|argument|
|000036b0| 2d 66 6f 72 6d 29 29 20 | 65 6c 74 73 2e 22 29 0a |-form)) |elts.").|
|000036c0| 28 62 79 74 65 2d 63 6f | 64 65 20 22 c0 11 c2 87 |(byte-co|de "....|
|000036d0| 22 20 5b 28 28 37 33 20 | 49 6e 66 6f 2d 6e 6f 64 |" [((73 |Info-nod|
|000036e0| 65 20 6c 65 74 20 28 66 | 69 6c 65 29 20 28 72 65 |e let (f|ile) (re|
|000036f0| 71 75 69 72 65 20 27 69 | 6e 66 6f 29 20 28 68 61 |quire 'i|nfo) (ha|
|00003700| 72 67 73 3a 72 65 61 64 | 20 70 72 6f 6d 70 74 20 |rgs:read| prompt |
|00003710| 28 66 75 6e 63 74 69 6f | 6e 20 28 6c 61 6d 62 64 |(functio|n (lambd|
|00003720| 61 20 28 6e 6f 64 65 29 | 20 28 61 6e 64 20 28 73 |a (node)| (and (s|
|00003730| 74 72 69 6e 67 2d 6d 61 | 74 63 68 20 22 5e 28 5c |tring-ma|tch "^(\|
|00003740| 5c 28 5b 5e 29 5d 2b 5c | 5c 29 29 22 20 6e 6f 64 |\([^)]+\|\))" nod|
|00003750| 65 29 20 28 73 65 74 71 | 20 66 69 6c 65 20 28 73 |e) (setq| file (s|
|00003760| 75 62 73 74 72 69 6e 67 | 20 6e 6f 64 65 20 28 6d |ubstring| node (m|
|00003770| 61 74 63 68 2d 62 65 67 | 69 6e 6e 69 6e 67 20 31 |atch-beg|inning 1|
|00003780| 29 20 28 6d 61 74 63 68 | 2d 65 6e 64 20 31 29 29 |) (match|-end 1))|
|00003790| 29 20 28 6d 65 6d 71 20 | 74 20 28 6d 61 70 63 61 |) (memq |t (mapca|
|000037a0| 72 20 28 66 75 6e 63 74 | 69 6f 6e 20 28 6c 61 6d |r (funct|ion (lam|
|000037b0| 62 64 61 20 28 64 69 72 | 29 20 28 66 69 6c 65 2d |bda (dir|) (file-|
|000037c0| 72 65 61 64 61 62 6c 65 | 2d 70 20 28 68 70 61 74 |readable|-p (hpat|
|000037d0| 68 3a 61 62 73 6f 6c 75 | 74 65 2d 74 6f 20 66 69 |h:absolu|te-to fi|
|000037e0| 6c 65 20 64 69 72 29 29 | 29 29 20 28 69 66 20 28 |le dir))|)) (if (|
|000037f0| 62 6f 75 6e 64 70 20 27 | 49 6e 66 6f 2d 64 69 72 |boundp '|Info-dir|
|00003800| 65 63 74 6f 72 79 2d 6c | 69 73 74 29 20 49 6e 66 |ectory-l|ist) Inf|
|00003810| 6f 2d 64 69 72 65 63 74 | 6f 72 79 2d 6c 69 73 74 |o-direct|ory-list|
|00003820| 20 28 6c 69 73 74 20 49 | 6e 66 6f 2d 64 69 72 65 | (list I|nfo-dire|
|00003830| 63 74 6f 72 79 29 29 29 | 29 29 29 29 20 64 65 66 |ctory)))|)))) def|
|00003840| 61 75 6c 74 20 22 28 68 | 61 72 67 73 3a 72 65 61 |ault "(h|args:rea|
|00003850| 64 29 3a 20 55 73 65 20 | 28 72 65 61 64 61 62 6c |d): Use |(readabl|
|00003860| 65 2d 66 69 6c 65 6e 61 | 6d 65 29 6e 6f 64 65 6e |e-filena|me)noden|
|00003870| 61 6d 65 2e 22 20 27 49 | 6e 66 6f 2d 6e 6f 64 65 |ame." 'I|nfo-node|
|00003880| 29 29 20 28 37 35 20 6b | 63 65 6c 6c 20 68 61 72 |)) (75 k|cell har|
|00003890| 67 73 3a 72 65 61 64 20 | 70 72 6f 6d 70 74 20 6e |gs:read |prompt n|
|000038a0| 69 6c 20 64 65 66 61 75 | 6c 74 20 6e 69 6c 20 27 |il defau|lt nil '|
|000038b0| 6b 63 65 6c 6c 29 20 28 | 37 36 20 6b 6c 69 6e 6b |kcell) (|76 klink|
|000038c0| 20 68 61 72 67 73 3a 72 | 65 61 64 20 70 72 6f 6d | hargs:r|ead prom|
|000038d0| 70 74 20 6e 69 6c 20 64 | 65 66 61 75 6c 74 20 6e |pt nil d|efault n|
|000038e0| 69 6c 20 27 6b 6c 69 6e | 6b 29 20 28 37 37 20 6d |il 'klin|k) (77 m|
|000038f0| 61 69 6c 20 70 72 6f 67 | 6e 20 28 77 68 69 6c 65 |ail prog|n (while|
|00003900| 20 28 6f 72 20 28 6e 6f | 74 20 28 6c 69 73 74 70 | (or (no|t (listp|
|00003910| 20 28 73 65 74 71 20 64 | 65 66 61 75 6c 74 20 28 | (setq d|efault (|
|00003920| 72 65 61 64 2d 6d 69 6e | 69 62 75 66 66 65 72 20 |read-min|ibuffer |
|00003930| 28 68 61 72 67 73 3a 70 | 72 6f 6d 70 74 20 70 72 |(hargs:p|rompt pr|
|00003940| 6f 6d 70 74 20 22 22 20 | 22 6c 69 73 74 20 6f 66 |ompt "" |"list of|
|00003950| 20 28 64 61 74 65 20 6d | 61 69 6c 2d 66 69 6c 65 | (date m|ail-file|
|00003960| 29 22 29 20 64 65 66 61 | 75 6c 74 29 29 29 29 20 |)") defa|ult)))) |
|00003970| 28 2f 3d 20 28 6c 65 6e | 67 74 68 20 64 65 66 61 |(/= (len|gth defa|
|00003980| 75 6c 74 29 20 32 29 20 | 28 6e 6f 74 20 28 61 6e |ult) 2) |(not (an|
|00003990| 64 20 28 73 74 72 69 6e | 67 70 20 28 63 61 72 20 |d (strin|gp (car |
|000039a0| 28 63 64 72 20 64 65 66 | 61 75 6c 74 29 29 29 20 |(cdr def|ault))) |
|000039b0| 28 66 69 6c 65 2d 65 78 | 69 73 74 73 2d 70 20 28 |(file-ex|ists-p (|
|000039c0| 63 61 72 20 28 63 64 72 | 20 64 65 66 61 75 6c 74 |car (cdr| default|
|000039d0| 29 29 29 29 29 29 20 28 | 62 65 65 70 29 29 20 64 |)))))) (|beep)) d|
|000039e0| 65 66 61 75 6c 74 29 29 | 20 68 61 72 67 73 3a 69 |efault))| hargs:i|
|000039f0| 66 6f 72 6d 73 2d 65 78 | 74 65 6e 73 69 6f 6e 73 |forms-ex|tensions|
|00003a00| 20 6e 69 6c 5d 20 31 29 | 0a 28 64 65 66 76 61 72 | nil] 1)|.(defvar|
|00003a10| 20 68 61 72 67 73 3a 69 | 66 6f 72 6d 2d 65 78 74 | hargs:i|form-ext|
|00003a20| 65 6e 73 69 6f 6e 73 2d | 76 65 63 74 6f 72 20 6e |ensions-|vector n|
|00003a30| 69 6c 20 22 5c 0a 56 65 | 63 74 6f 72 20 6f 66 20 |il "\.Ve|ctor of |
|00003a40| 66 6f 72 6d 73 20 66 6f | 72 20 65 61 63 68 20 69 |forms fo|r each i|
|00003a50| 6e 74 65 72 61 63 74 69 | 76 65 20 63 6f 6d 6d 61 |nteracti|ve comma|
|00003a60| 6e 64 20 63 68 61 72 61 | 63 74 65 72 20 63 6f 64 |nd chara|cter cod|
|00003a70| 65 2e 22 29 0a 28 62 79 | 74 65 2d 63 6f 64 65 20 |e.").(by|te-code |
|00003a80| 22 c0 09 21 12 c3 c4 21 | 87 22 20 5b 68 61 72 67 |"..!...!|." [harg|
|00003a90| 73 3a 6d 61 6b 65 2d 69 | 66 6f 72 6d 2d 76 65 63 |s:make-i|form-vec|
|00003aa0| 74 6f 72 20 68 61 72 67 | 73 3a 69 66 6f 72 6d 73 |tor harg|s:iforms|
|00003ab0| 2d 65 78 74 65 6e 73 69 | 6f 6e 73 20 68 61 72 67 |-extensi|ons harg|
|00003ac0| 73 3a 69 66 6f 72 6d 2d | 65 78 74 65 6e 73 69 6f |s:iform-|extensio|
|00003ad0| 6e 73 2d 76 65 63 74 6f | 72 20 70 72 6f 76 69 64 |ns-vecto|r provid|
|00003ae0| 65 20 68 61 72 67 73 5d | 20 32 29 0a             |e hargs]| 2).    |
+--------+-------------------------+-------------------------+--------+--------+